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Scrol 1 screen 
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to terminal 

the line 
cursor 
the page 
cursor 



the home position 
up one line 
down one line 

— Check for scrolling limits 
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000000 
000000 



1 1 0466 



.TITLE TSWIN — TSX-Pius Display Windows 

. ENABL LC 

. ENABL AMA 

. DSABL GBL 

. CSECT TSWIN 

TSWIN: , RAD50 /WIN/ ; Overlay region id 

TSWIN is the TSX-Plus system overlay that provides display windou) support. 

Copyright (c) 1985. 

S&H Computer Systems* Inc. 
Nashville* Tennessee USA 
Ail rights reserved. 

Global definitions 

. GLOBL WINCHR, Em WIN, WININI» WINREL, WINDSP 

. GLOBL WINST, WINSF, WINPRT 

Global references 

. GLOBL LSW 1 1 , « V52EM, LNPR I M 

GLOBL LSTSL, LPRGl* LPRG2, LBRKCQ, NMFREQ, GETRTQ 

. GLOBL lOQSIZ, CQ*R1 , QCOMPL, VALADW> VALADB 

. GLOBL P2«CXT* PRIVC2, *8BIT* LSW2, AW*PRT 

. GLOBL RC*EXC. RC*FLG, LOTSI Z, LOTSPC, LOTNXT, LOTPNT 

. GLOBL *GTRLO, LSW3, *RFRSH, LSW4, AW*SPN 

. GLOBL *WDISP, LSW6, S*OTWT, LSTATE, RC«BLK, RC«CNT 

. GLOBL *VNOTT, LSW, PCSPND, FRKPR I , FORCEX 

. GLOBL DW*CSB, DW*CSR, DW*CSP, TCSBSZ, LWINDO 

. GLOBL ESC, CSICHR, SS3CHR, AW*52, DW*AW, BUFCHR, AW*S52 

. GLOBL KPAR6, VPAR6, OVRHC, INTPR I , PSW, PR7 

. GLOBL DW*CCA, DW*COL, DW*CPL, DW*LIN, DW*SRB 

. GLOBL DW*SRT, DW*LPP> DW*TLN, DW*LPT, DW*MAP 

. GLOBL DW*RID, DW*JOB, DW*ID, RC*BAS, R. GID 

. GLOBL R. OSIZ, R. GSTS, R. NAME, RS. CGR, RS. PVT 

. GLOBL RS. GBL, EMTBLK, SETERR, EMTXIT, RS. EGR 

. GLOBL DW**SZ, CR, LF, AC*BLD, AC*BLK, AC*REV 

. GLOBL CORUSR, AC*ULN, AL*DHT, AL*DHB, AL*DWD, VTIOO 

. GLOBL BUFCHR, VMXWIN, VT52, VT2007, VT200S, LTRMTP 

. GLOBL AW*200, AW*132, AW*INS, AW*ACK, AW*REV, AW*ORS 

. GLOBL AW«AKM, AW*VCR, LSW7. *SLON, *SLKED, LCOL 

. GLOBL AW«PRM, *DETCH, LSW, LSW6, *WDISP, AW*RPT 

. GLOBL AW«SS, DW*0LS, DW*GLM, DW«GRM, AC*SET 

. GLOBL DW*MSL, DW*NSL, AW*DDC 

. GLOBL DW*G0M, DW*G1M, DW*G2M, DW*G3M 

. GLOBL DW*SLN, DW*SCL, DW*SCA, WINTOP 
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21 
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29 
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31 
32 
33 
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49 000002 

50 000004 

51 000006 

52 000010 

53 000012 

54 000014 
55 



000073 

015234' 

000000 

000000 

110466 

063344 



Macro definitions 

Macros to enable and disable interrupts 

.MACRO DISABL i Disable interrupts 

BIS #PR7, e#PSW 
. ENDM DISABL 



. MACRO ENABL 

BIC INTPRI,@#PSW 

. ENDM ENABL 



; Enable interrupts 



Macro to call a system overlay 

. MACRO OCALL ENTADD 

.IF B, ENTADD 

.ERROR i OCALL without entry address 

. ENDC 

CALL OVRHC 

. WORD ENTADD 

. ENDM OCALL 

Macros to map to screen buffer and restore mapping 

. MACRO BUFMAP 

DISABL 

MOV e#KPAR6, MAPHLD 

MOV DW*MAP < R2 ) , e#KP AR6 

. ENDM BUFMAP 

. MACRO UNMAP 

MOV MAPHLD, e#KPAR6 

ENABL 

. ENDM UNMAP 

Macro to send a character to the terminal 

. MACRO SEND CHAR 

MOVB CHAR. RO 

CALL GENCHR 

. ENDM SEND 



Data areas and parameters 



SEMI 



73 



DWBAS: 


. WORD 


WINTOP 


DWEND: 


. WORD 





MAPHLD: 


. WORD 





R50WIN: 


. RAD50 


/WIN/ 


R50PRT: 


. RAD50 


/PRT/ 


CSBUF: 


. BLKB 
. EVEN 


16. 



; Semicolon 

iPointer to 1st ujindou control block 
iPointer past last windouj control block 
; Temp cell used by BUFMAP/UNMAP macros 



> Cursor string work buffer 



i 
I 

I 
i 
i 
f 

i 

i 

< 
i 

€ 

i 

i 
t 
i 



TSWIN - 
WINCHR 



- TSX-Plus Display Windo MACRO V05. 05 Wednesday 18-Jan-89 14:17 Page 3 
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31 
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SBmL WINCHR — r^rocess next output character 



This routine is called to process each character sent to the terminal 
by a running program. It determines if the character is part of an 
escape sequence or is a regular character. 

Inputs: 
RO = Character being sent. 
Rl = Job index number. 

Outputs: 
C-flag set ==> Do not send this char to terminal now. 



000034 010046 

000036 010246 

000040 010546 

000042 010005 



000044 016102 OOOOOOG 



000050 032762 OOOOOOG OOOOOOG 
000056 001045 



000060 032761 OOOOOOG OOOOOOG 

000066 001002 

000070 042705 177600 



000074 105705 
000076 001427 



000100 004737 000510' 
000104 103024 



000106 016200 OOOOOOG 

000112 001402 

000114 004710 

000116 000417 



WINCHR: liOV 
MOV 
MOV 
MOV 



RO, -<SP) 
R2, -(SP) 
R5, -(SP) 
RO, R5 



i Carry character in R5 

Get pointer to current tuindoui control block for job 

MOV LWIND0<R1 ), R2 i Get pointer to window control block 

See if processing is suspended for this window 

BIT #AW*SPN, DW*AW<R2)i Is window processing suspended? 

BNE a* i Br if yes — Just pass through the char 

Mask character to 7 bits unless 8 bit support has been enabled 



1*: 



BIT 
BNE 
BIC 

Ignore nulls 

TSTB 
BEQ 



#*8BITi LSW2<Ri ) >Is 8 bit char support wanted' 

1* ; Br if yes 

#-^C<177>, R5 J Mask character to 7 bits 



R5 
7* 



; Is character null? 
; Br if null 



Determine if this character begins a terminal control sequence 



CALL 
BCC 



WCSCHK 
7* 



; Check for control sequence start 
j Br if start of control sequence 



See if we are currently accepting a terminal control sequence 

i Are we processing a control sequence? 
i Br if not 

iCall routine to process this character 
^Finished with this character 

If output is being directed to the terminal printer port, then 
don't update window image with this character. 



MOV 


DW$CSR<R2>,R0 


BEQ 


3* 


CALL 


<R0> 


BR 


7* 



000120 032762 OOOOOOG OOOOOOG 3*: 
000126 001013 



BIT #AW*PRT, DW*AW(R2)i Is output going to printer? 

BNE 7* i Br if yes — Bypass window update 
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Determine if this is a normal or control character 
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- Process next output character 



000130 
000132 
000136 
000142 
000144 
000150 



010500 
042700 
020027 
101003 
004737 
000402 



177600 
000037 

000370 ' 



MOV 


R5, RO 


BIC 


#-''C<177>, RO 


CMP 


RO, #37 


BHI 


4* 


CALL 


DOCTRL 


BR 


7* 



; Get the character 

iMask to 7 bits 

i Is this a control character? 

i Br if not 

i Process a control character 



000152 004737 000204' 



; Process regular character 
4*: CALL REGCHR 



J Process a regular character 



000156 
000164 



000166 
000170 



032762 
001402 



000261 
000401 



0000000 OOOOOOG 7*: 



000172 000241 



000174 
000176 
000200 
000202 



012605 
012602 
012600 
000207 



See if tiie should display this character nouj 

BIT #AW*DDC, DW*AW<R2) J Should uie suppress char display? 
BEQ 8* ;Br if not 

We don't want to display this character 

;Signal to not display the character 



SEC 
BR 



9* 



J We want to display this character 

8*: CLC /Signal to display the character 

> 

i Finished 



9*: 



MOV 
MOV 
MOV 
RETURN 



(SP)+>R5 
<SP)+, R2 
<SP)+, RO 
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— Process regular characters 

. 3BTTL RESCHR — Process regular characters 



Process regular characters which are stored into the appropriate 
cell of the character matrix. 



Inputs: 
R2 = Pointer to window control block 
R5 = Character 



000204 010346 
000206 010546 



000210 016203 0000000 



000214 016200 OOOOOOG 

000220 005300 

000222 006300 

000224 060003 



000226 116200 OOOOOOG 

000232 032705 000200 

000236 001013 

000240 1 1 6200 OOOOOOG 

000244 032762 OOOOOOG OOOOOOG 

000252 001405 

000254 116200 OOOOOOG 

000260 042762 OOOOOOG OOOOOOG 

000266 060200 

000270 116000 OOOOOOG 

000274 042705 177600 



000300 1 56200 OOOOOOG 



000304 

000326 110523 
000330 1 1 0023 
000332 



000346 026262 OOOOOOG OOOOOOG 

000354 103002 

000356 005262 OOOOOOG 



REGCHR: MOV 
MOV 



R3, -<SP) 
R5, -<SP) 



Get pointer to 1st character on current line 

MOV DW*LPT<R2), R3 ; Get pointer to 1st char on line 
Get pointer to current character on the line 



MOV DW*C0L<R2), RO 

DEC RO 

ASL RO 

ADD RO, R3 



Get current column number 

1st column is # 1 

Two bytes used per column 

Get pointer to char byte for current col 



Get number of character set for this character 



1*: 



MOVB DW*GRM<R2),R0 

BIT #200, R5 

BNE 1« 

MOVB DW*GLM(R2),R0 

B I T # AW*SS, DW* AW < R2 > 

BEQ 1$ 

MOVB DW«GLS(R2),R0 

B I C # AW*SS, DW* AW ( R2 ) 

ADD R2, RO 

MOVB DW$GOM<RO),RO 

BIC #-^C<177>, R5 



Assume character is in GR 

Is character in GR <8 bit character) 

Br if yes 

Determine which set GL is mapped to 

Are we single-shifting this character? 

Br if not 

Get single-shift mapping for char 

Reset single-shift flag 

Add base address of window control block 

Get char set for this character 

Mask character to 7 bits 



Get character attribute flags (bold, blinking, etc. > 

BISB DW*CCA<R2), RO iAdd character attribute flags 
Store character and attribute into that cell 



BUFMAP 
MOVB 
MOVB 
UNMAP 



R5, <R3) + 
RO, <R3) + 



i i Map to screen buffer 

; i Store character 

i i Store character attribute flags 

Restore mapping 



Advance column number unless we are at the end of the line 



00036J 



012605 



9* 



CMP 

BHIS 

INC 

Finished 

MOV 



DW*C0L<R2), DW*CPL<R2); Are we at the end of the line now? 
9* ; Br if at end of the line now 

DW*C0L<R2> -Advance to next column 



(SP)+, R5 
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REGCHR — Process regular characters 

5S 000364 012603 MOV (3P)+/R3 

59 000366 000207 RETURN 
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10 


000370 




11 






12 






13 






14 


000370 


010500 


15 


000372 


042700 177600 


16 


000376 


006300 


17 


000400 


004770 000406 


IS 






19 






20 






21 


000404 


000207 


22 






23 






24 






25 






26 


000406 


000506' 


27 


000410 


000506 ' 


28 


000412 


000506 ' 


29 


000414 


000506 ' 


30 


000416 


000506' 


31 


000420 


000506 ' 


32 


000422 


000506 ' 


33 


000424 


000506' 


34 


000426 


002230 ' 


35 


000430 


002246 ' 


36 


000432 


002454 ' 


37 


000434 


002454 ' 


38 


000436 


002454' 


39 


000440 


002306 ' 


40 


000442 


003516' 


41 


000444 


003526 ' 


42 


000446 


000506 ' 


43 


000450 


000506 ' 


44 


000452 


000506 ' 


45 


000454 


000506' 


46 


000456 


000506 ' 


47 


000460 


000506' 


48 


000462 


000506' 


49 


000464 


000506 ' 


50 


000466 


000506 ' 


51 


000470 


000506' 


52 


000472 


000204 ' 


53 


000474 


000506 ' 


54 


000476 


000506' 


55 


000500 


000506 ' 


56 


000502 


000506' 


57 


000504 


000506' 



.SBTiL DOCTRL — h'rocess control characters 

This routine is called when the character being output is a 
control character (000 ~ 037). 

Inputs: 
R2 = Pointer to uiindow control block 
R5 = Character 

DOCTRL: 

i 

i Call processing routine for this character 

> 

j Get the character 

;Mask to 7 bits 

/Convert to uiord table index 

/Call appropriate processing routine 



MOV 


R5, RO 


BIC 


#-^C<177>. RO 


ASL 


RO 


CALL 


eCCRTN<RO) 


Finished 




RETURN 





Branch table for control character processing routines 



CCRTN: 



. WORD 


CCEXIT 


. WORD 


CCEXIT 


. WORD 


CCEXIT 


. WORD 


CCEXIT 


. WORD 


CCEXIT 


. WORD 


CCEXIT 


. WORD 


CCEXIT 


. WORD 


CCEXIT 


. WORD 


TCBS 


. WORD 


TCHT 


. WORD 


TCLF 


. WORD 


TCLF 


. WORD 


TCLF 


. WORD 


TCCR 


. WORD 


TCSO 


. WORD 


TCSI 


. WORD 


CCEXIT 


. WORD 


CCEXIT 


. WORD 


CCEXIT 


. WORD 


CCEXIT 


. WORD 


CCEXIT 


. WORD 


CCEXIT 


. WORD 


CCEXIT 


. WORD 


CCEXIT 


. WORD 


CCEXIT 


. WORD 


CCEXIT 


. WORD 


REOCHR 


. WORD 


CCEXIT 


. WORD 


CCEXIT 


. WORD 


CCEXIT 


. WORD 


CCEXIT 


. WORD 


CCEXIT 



000 


- NUL 


001 


- SOH 


002 


- STX 


003 


- ETX 


004 


- EOT 


005 


- ENQ 


006 


- ACK 


007 


- BEL 


010 


- BS 


Oil 


- HT 


012 


- LF 


013 


- VT 


014 


- FF 


015 


- CR 


016 


- SO 


017 


- SI 


020 


- DLE 


021 


- DCl 


022 


- DC2 


023 


- DC3 


024 


- DC4 


025 


- NAK 


026 


- SYN 


027 


- ETB 


030 


- CAN 


031 


- EM 


032 


- SUB 


033 


- ESC 


034 


- FS 


035 


- OS 


036 


- RS 


037 


- US 



(ctrl-Z) 



I 
I 
ff 



< 

f 
I 

c 



f 
i 

i 
i 
i 
i 



4 

t 
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DOCTRL — Process control characters 

5S i 

59 ' Immediate return for most control characters 

60 i 

61 000506 000207 CCEXIT: RETURN 



€ 
C 

i 

C 



i 
i 

t 



) 



I 
i 
I 

i 

« 



» c 
f 
c 

i 
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1 
2 
3 

A 

T 

5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 



000510 



000510 120527 OOOOOOG 

000514 001003 

000516 004737 000546' 

000522 000405 



000524 120527 OOOOOOG 

000530 001004 

000532 004737 000600 ' 



000536 000241 
000540 000401 



000542 000261 



000544 000207 



. SBTTL WCSCHK — Check for start of control sequence 
This routine is called to determine if the current character begins 

a +T o T* m -i in Sfc 1 rnri^T-nl ezaniianret 

Inputs: 
R2 = Windou control block. 
R5 = Current character 



Outputs: 
C~flag cleared 
C-flag set 



=> Start of control sequence 
=> Not start of control sequenc 



WCSCHK: 

i 

i See if this is the start of an escape sequence 



CMPB 
BNE 
CALL 
BR 



R5, #ESC 
1« 

WCPESC 
8* 



; Is this character escape? 

; Br if not 

i Begin escape sequence 



See if this character is CSI. beginning of VT200 control sequence 



1*; 



CMPB R5, #CSICHR 
BNE 7* 
CALL WCPCSI 

We began a control sequence 



8*: 



CLC 
BR 



9* 



i CSI character? 

i Br if not 

> Start VT200 control sequence 



Signal control sequence began 



i We did not begin a control sequence 

7*: SEC {Signal that not control sequence 

i 

; Finished 
9*: RETURN 



* 

c 

f 

i 

i 

f 
€ 



i 

{ 

i 
I 
I 



i 

i 



TSWIN — TSX-Plus Display Windo 
WCPESC — Escape processing 

1 

2 

3 

4 

5 

6 

7 

8 

9 000546 
10 
11 
12 



14 
15 
16 
17 

18 000552 

19 000556 

20 000564 

21 000566 

22 000572 

23 000576 
24 

25 
26 
27 
28 
29 
30 

31 000600 

32 000606 

33 000612 

34 000616 

35 000622 



005062 OOOOOOG 



012700 
032762 
001402 
012700 
010062 
000207 



000624 ' 
OOOOOOC 

000710' 
OOOOOOG 
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. SBTTL WCPESC — Escape processing 

Process an Escape character 

Inputs: 
R2 = Window control block 
R5 = Escape character 

WCPESC: 

Initialize control sequence buffer pointer 

CLR DW*CSP<R2) ; Say no chars accrued yet 

Set address of routine to be called to process 1st character after 
escape. 

liOV #EPCHliRO /Routine for 1st character after escape 

OOOOOOG BIT #<AW*52.'AW*S52>, DW*AW<R2)i Is terminal in VT52 emulation mode? 

BEQ 1* i Br if not 

MOV #EP52, RO iSet routine for VT52 mode 

1*: MOV RO, DW*CSR<R2) ; Set address of processing routine 
RETURN 



012762 
005062 
112700 
004737 
000207 



Received a CSI control character for a VT200 terminal. 

Inputs: 
R2 = Window control block address 

000624' OOOOOOG WCPCSI: MOV #EPCH1, DW*CSR<R2) i Set address of routine for next char 

OOOOOOG CLR DW*CSP<R2) ; Say no chars accrued yet 

000133 MOVE #'C,RO ; Treat CSI char like ESC C 

001136' CALL ACRCS ; Store "C" as 1st char of sequence 

RETURN 



1 

i 
t 
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EPCHl — Accrue a terminal control sequence 



c 
i 
I 



1 

2 

3 
4 

5 
6 
7 

e 

9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 

t£.f 

28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 



000624 010546 

000626 042705 177600 



000632 010500 

000634 004737 001136' 



000640 120527 000060 

000644 103417 

000646 120527 000176 

000652 101014 

000654 120527 000133 

000660 001411 

000662 120527 000100 

000666 103004 

000670 126227 OOOOOOG 000133 

000676 001402 



000700 004737 001174' 



000704 012605 
000706 000207 



. SBTTL EPCHl — Accrue a terminal control sequence 

EPCHl is called to accrue a VTIOO or VT200 control sequence. 

There are two types of "control" sequences: 

Escape sequence format: ESC I. . . I F 

I = Intermediate character in the range 040 to 057 
F = Final character in the range 060 to 176 

Control sequence format: ESC P .. . P I. . . I F 

CSI = CSI character or ESC C 

P = Parameter values in the range 060 to 077 

I = Intermediate characters in the range 040 to 057 

F = Final character in the range 100 to 176 

Inputs: 
R2 = Address of window control block. 
R5 = Received character 

EPCHl: MOV R5, -<SP> 

BIC #-^C<177>, R5 ;Mask character to 7 bits 

Add received character to end of control sequence already received 



MOV 
CALL 



R5, RO 
ACRCS 



i Get received character 

i Store into control sequence buffer 



Determine if this character terminates the control sequence 



CMPB 

BLO 

CMPB 

BHI 

CMPB 

BEQ 

CMPB 

BHIS 

CMPB 

BEQ 



R5, #60 

9* 

R5, #176 

9* 

R5, #'i: 

9* 

R5, #100 



Is this the terminating character? 

Br if not 

Is this the terminating character? 

Br if not 

Is this part of string header? 

Br if string header 

100 to 176 always terminates 



1* 

DW*CSB<R2)* #'C J Is this an escape or control sequence? 

9$ ; Br if control sequence. Only 100-176 term 



This is the final character of the control sequence 

1*: CALL CSFIN ; End of control sequence 

Finished 

9*: MOV (SP)+, R5 
RETURN 
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f 



J. 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

1 n 

14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



000710 
000712 



000716 
000722 
000724 
000730 
000732 
000736 



000742 
000746 
000750 
000756 



000760 
000762 
000766 



000772 
000774 



000776 
001002 
001006 
001010 
001014 
001020 
001024 
001030 
001034 



010546 
042705 



120527 
103416 
120527 
101013 
012700 
004737 



120527 
001004 
012762 
000405 



010500 
004737 
004737 



012605 
000207 



042705 
120527 
103404 
016205 
062705 
004737 
112700 
004737 
012762 



177600 

000101 

000132 

000133 
001136' 

000131 
000776 ' 



001136' 
001174' 



177600 
000070 

OOOOOOG 

000037 

001066' 

000073 

001136' 

001044' 



Accrue VT52 control sequences. 

All VT52 control sequences consist of ESC followed by a single character 

except for the cursor addressing sequence ESC Y line col. 

The VT52 sequences are converted to VT52 compatible sequences. 



Inputs: 
R2 = Address of uindoui control block 
R5 = Received character 



EP52: MOV R5, -<SP) 

BIC #'^C<177>, R5 



CMPB 


R5, #'A 


BLO 


2* 


CMPB 


R5,#'Z 


BHI 


2* 


MOV 


#'C,RO 


CALL 


ACRCS 



OOOOOOG 



2*: 



J Mask character to 7 bits 
If this character is a letter* insert "Z" in front of it. 



; Letter 
j Br if not 
; Letter 
; Br if not 
; Store "C" 



Determine if this is the cursor addressing function 

CMPB R5. #'Y /Cursor addressing function? 

BNE 2* iBr if not 

MOV #EP52L.- DW*CSR<R2>i Set routine to process next char 

BR 9* 

This character terminates the control sequence. 

Get received character 

Add to string we are accruing 

This terminates the control sequence 



9*: 



MOV 


R5, RO 


CALL 


ACRCS 


CALL 


CSFIN 


Finished 




MOV 


<SP)+, R5 


RETURN 





Accept the character which represents the line number in a VT52 
cursor addressing sequence. 

Inputs: 
R2 = Address of window control block 
R5 = Received character <whose binary value is line number + 037) 



EP52L: 



1$: 



OOOOOOG 



Mask character to 7 bits 
Octal 70 ==> Remain on current line 
Br if new line specified 
Get current line number 
Convert to ascii character 
Convert char to digit string 
Get parameter separator character 
Store after line number value 
#EP52C> DW*CSR<R2); Set routine to process column number char 



BIC 


#-^C<177>>R5 


CMPB 


R5, #70 


BLO 


1* 


MOV 


DW*LIN<R2),R5 


ADD 


#37, R5 


CALL 


CV52 


MOVB 


#SEMI,RO 


CALL 


ACRCS 


MOV 


#EP52C, DW*CSR 



I 
f 



TSWIN -- 


- TSX-Pl 


us Displ 


ay Windo 


EPCHl - 


— Accrue a terminal con 


5e 


001042 


000207 




59 








60 








61 








62 








63 








64 








65 








66 








67 








68 


001044 


004737 


001066' 


69 


001050 


112700 


000110 


70 


001054 


004737 


001136' 


71 


001060 


004737 


001174' 


72 


001064 


000207 




73 








74 








75 








76 








77 








78 








79 








80 








81 








82 








83 








84 


001066 


010446 




85 


001070 


010546 




86 








87 








88 








89 


001072 


162705 


000037 


90 








91 








92 








93 


001076 


005004 




94 


001100 


071427 


000012 


95 


001104 


062704 


000060 


96 


001110 


010400 




97 


001112 


004737 


001136' 


98 


001116 


062705 


000060 


99 


001122 


010500 




100 


001124 


004737 


001136' 


101 








102 








103 








104 


001130 


012605 




105 


001132 


012604 




106 


001134 


000207 





sequence 
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RETURN 



Accept the character which represents the column number in a VT52 
cursor addressing sequence. 

Inputs: 
R2 = Address of window control block 
R5 = Received character <whose binary value is column number + 037) 



EP52C: CALL CV52 

MOVB #'H, RO 

CALL ACRCS 

CALL CSFIN 
RETURN 



/Convert char to digit string 
i Store terminating character 

/This terminates the control sequence 



Convert a received character whose binary value represents a line 
number or a column number in a VT52 cursor addressing sequence 
into an ascii digit string and store into the accrued control 
sequence. 



Inputs: 
R2 = Address of window control block 
R5 = Received character whose binary value 



37 is the stored result 



CV52: 



MOV 
MOV 



R4, -<SP) 
R5, -<SP) 



Subtract bias of 37 
SUB #37. R5 
Convert to digit string 



CLR 


R4 


DIV 


#10. ,R4 


ADD 


#'0/R4 


MOV 


R4/R0 


CALL 


ACRCS 


ADD 


#'0, R5 


MOV 


R5, RO 


CALL 


ACRCS 


inished 




MOV 


<SP)+/R5 


MOV 


(SP)+, R4 


RETURN 





/Remove bias from character value 



Clear high-order for divide 

Split into two decimal digits 

Form high-order ascii digit 

Get the character 

Store into control string 

Form low-order ascii digit 

Get the character 

Store into control string 



I 

i 
i 
f 



t 

i 
i 
i 
( 

4 



I 
I 



TSWIN -- 
ACRCS - 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 
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001136 010346 

001140 042700 177600 



001144 016203 OOOOOOG 
001150 020327 1777770 
001154 103005 



001156 060203 

001160 110063 OOOOOOG 

001164 005262 0000000 



001170 012603 
001172 000207 



. SBTTL ACRCS — Store a character into control seq buffer 

This routine is called to add another character to the end of the 
accrued control sequence in the DW*CSB buffer area. 

Inputs: 
RO = Character to be added to end of string 
R2 = Address of uiindow descriptor block 

ACRCS: MOV R3, -tSP) 

BIC #'^C<177>> RO ;Mask character to 7 bits 

Make sure ue don't overfiou* the control sequence buffer 

.: Get # chars in buffer now 

; Is buffer full already? 

j Br if yes — Ignore this character 



MOV 


DW*CSP<R2>.R3 


CMP 


R3, #TCSBSZ-1 


BHIS 


9* 



Store character into buffer 



9*; 



ADD 

MOVB 

INC 

Finished 

MOV 
RETURN 



R2, R3 

RO, DW*CSB<R3) 

DW«CSP<R2) 



(SP)+, R3 



; Point to next char pos in buffer 

i Store char into buffer 

i Increment character count 



i 

i 

€ 

I 

€ 

I 
€ 
t 

i 

c 



i 
C 
I 



i 



( 



TSWIN 
CSFIN 
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1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



001174 010346 
001176 010446 
001200 010546 



001202 010203 

001204 066203 OOOOOOG 

001210 105063 OOOOOOG 



001214 012705 000014' 

001220 010203 

001222 062703 OOOOOOG 

001226 121327 000133 

001232 001014 



001234 112300 

001236 001410 

001240 120027 000060 

001244 103403 

001246 120027 000076 

001252 101770 

001254 110025 

001256 000766 

001260 105025 

001262 000402 



001264 112325 
001266 001376 



001270 012704 001432' 

001274 126527 177776 000140 

001302 103002 

001304 012704 001560' 



001310 012703 000014' 



. SBTTL CSFIN — Process received control sequence 

We have finished accruing a control sequence^ process it. 

Inputs: 
R2 = Address of window control block. 



CSFIN: 



MOV 
MOV 
MOV 



R3, -(SP) 
R4/ -(SP) 
R5, -(SP) 



Store null at end of control sequence string 



MOV R2, R3 

ADD DW«CSP(R2), R3 

CLRB DW*CSB(R3) 



i Get address of ujindow control block 
} Point to next char pos in buffer 
J Store null at end of string 



MOV 


#CSBUF, R5 


MOV 


R2/R3 


ADD 


#DW*CSB» R3 


CMPB 


(R3),#'C 


BNE 


3* 



1$: 



2*: 
4*: 



Move control sequence to work buffer and remove any parameter characters 

> Point to work buffer 

;Get address of buffer with full string 

i Do we need to exclude parameter values? 
i Br if not 

This is a control sequence. Ignore parameter value characters in the 
range 060 to 076. 

Get next char from input string 

Br if hit end of string 

Is this a parameter character? 

Br if not 

Parameter character? 

Br if parameter character 

Store char into work buffer 

Keep moving 

Store null at end of string 

This is an escape sequence. We don't have to remove parameter values. 



MOVB 


(R3)+, RO 


BEQ 


4* 


CMPB 


RO. #060 


BLO 


2$ 


CMPB 


RO, #076 


BLOS 


1* 


MOVB 


RO, (R5) + 


BR 


1* 


CLRB 


(R5) + 


BR 


5* 



3*: MOVB (R3)+, (R5) + 
BNE 3« 



; Move char to work buffer 
j Loop till null moved 



The control sequence is now in the work buffer (CSBUF) with any parameter 

value strings removed. 

Begin loop to try to identify the control sequence. 

5*: MOV #CSTBLL* R4 /Point to 1st set of control sequences 

; Is final char of sequence less than 140? 

i Br if not 

; Point to control seq table for final < 140 

Compare accrued control sequence with sequence stored in table 



MOV 


#CSTBLL, R4 


CMPB 


-2(R5)i#140 


BHIS 


10* 


MOV 


#CSTBLU, R4 



10*: MOV #CSBUF, R3 
12*: CMPB (R3)+, (R4)+ 



Point to accrued control sequence 
Compare the strings 



C 



i 

i 
t 

i 

i 



€ 

I. 

I 
( 

4 
( 

i 
i 
( 
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58 001316 

59 001320 

60 001324 

61 001326 
62 

63 
64 

65 001330 

66 001332 

67 001334 

68 001336 

69 001342 

70 001346 

71 001350 

72 001352 
73 

74 
75 
76 
77 

78 001354 

79 001356 

80 001362 

81 001364 

82 001370 

83 001372 

84 001400 

85 001402 

86 001406 

87 001410 
88 

89 
90 

91 001412 

92 001416 

93 001422 

94 001424 

95 001426 

96 001430 



001004 
105764 
001373 
000412 



005304 
105724 
001376 
062704 
042704 
005714 
001357 
000417 



010205 
062705 
005204 
042704 
011404 
032762 
001403 
020427 
001001 
004714 



005062 
005062 
012605 
012604 
012603 
000207 



177777 



BNE 


13* 


TSTB 


-1<R4> 


BNE 


12* 


BR 


14* 



; Br if mismatch 

iWas that the end of both strings? 

J Br if not 

i We have a match 



000003 
000001 



Strings do not match — Move on to next table entry 

13*: DEC R4 ; Point to last char compared in table 

15*: TSTB <R4)+ i Search for null at end of asciz string 

i Loop till null found 

/Bound up and skip over following word 

; Get to word boundary 

{Reached end of table? 

;Loop if not 

; Control sequence is not in our table 

We found the control sequence in our table. 

Call processing routine. 

Set R5 to point to start of any possible parameter string in control seq. 



DEC 


R4 


TSTB 


<R4) + 


BNE 


15* 


ADD 


#3, R4 


BIC 


#1,R4 


TST 


<R4) 


BNE 


10* 


BR 


20* 



14*: 



00000 IG 
000001 

OOOOOOG OOOOOOG 
004674 ' 



16*: 



MOV 
ADD 
INC 
BIC 
MOV 
BIT 
BEQ 
CMP 
BNE 
CALL 



R2, R5 

#DW*CSB+1, R5 

R4 

#1,R4 

<R4), R4 



; Point to window control block 

jPoint to start of possible parameter string 

J Bound up to next word 

J Get to word boundary 

; Get address of routine to call 

#AW*PRT/ DW*AW<R2) j Are we directing output to printer port? 

16* i Br if not 

R4i #TCPRT i Is this printer control operation? 

20* i Br if not — Ignore till printer turned off 

<R4) iCall processing routine 



Finished with control sequence 



OOOOOOG 
OOOOOOG 



20*: 



CLR 
CLR 
MOV 
MOV 
MOV 
RETURN 



DW*CSP<R2) 
DW*CSR<R2) 
(SP)+, R5 
(SP)+, R4 
<SP)+, R3 



No accrued chars in control sequence 
Not accruing a control sequence now 



c 
I 
I 

f 
i 

f 

€ 

c 

t 



c 

t 
i 

c 



i 

f 
f 

4 
( 
C 
f 

I t 

< 

I 

) < 

c 

f 

« 



TSWIN - 


- TSX-Plus Disp 


CSFIN ■ 


-- Process rece 


1 




2 




3 




4 




5 




6 




7 




8 




9 




10 




11 




12 




13 




14 


001432 


15 


001432 


16 


001440 


17 


001446 


IS 


001454 


19 


001462 


20 


001470 


21 


001476 


22 


001504 


23 


001512 


24 


001520 


25 


001526 


26 


001532 


27 


001536 


28 


001542 


29 


001546 


30 


001552 


31 


001556 000000 


32 




33 




34 




35 




36 


001560 


37 


001560 


38 


001566 


39 


001574 


40 


001602 


41 


001610 


42 


001616 


43 


001624 


44 


001632 


45 


001640 


46 


001646 


47 


001654 


48 


001662 


49 


001670 


50 


001674 


51 


001700 


52 


001704 


53 


001710 


54 


001714 


55 


001722 


56 


001730 


57 


001736 



control sequence 
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Generate table of terminal control sequences and associated processint 
routines. 



. MACRO 
. ASCIZ 
. EVEN 
. WORD 
. ENDM 



ESCSEQ STRING, RTN 
/STRING/ 

RTN 
ESCSEQ 



Table 
range 



for 
140 



control 
to 177 



sequences whose final character is in the 



CSTBLL: 



ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 
. WORD 



<Cf>, TCCADR 
<C"p>, TClOO 
<Ch>, TCSAA 
<C1>, TCRAA 
<i:?h>, TCSDA 
<[?!>, TCRDA 
<Ci>, TCPRT 
<Cm>, TCSCA 
<Cr>, TCSSR 
'•:Cip>>TCREST 
<c>, TCREST 
<'^>, TCLSIR 
<n>, TCLS2 
<o>, TCLS3 
<», TCLS2R 
< ! >, TCLS3R 




Cursor addressing 
Select VT100/VT200 mode 
Set ANSI terminal attribute 
Reset ANSI terminal attribute 
Set DEC terminal attribute 
Reset DEC terminal attribute 
Printer control code 
Set character attribute 
Set scrolling region 
Soft reset 
Hard reset 

Lock shift Gl as GR character set 
Lock shift G2 as GL character set 
Lock shift G3 as GL character set 
Lock shift 02 as GR character set 
Lock shift G3 as GR character set 
End of table 



Table 
range 

CSTBLU: 



for control 
60 to 137 



sequences uihose final character is in the 



ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 



<CA>, TCUP 
<CB>, TCDOWN 
<i:C>, TCRIT 
<CD>, TCLEFT 
<CF>, TCGODS 
<CG>, TCGOAS 
<CH>, TCCADR 
<CI>, TCIXUP 
<CJ>, TOPERS 
<:CK>, TCLERS 
<CL>, TCINSL 
<i:m>, TCDELL 
<D>, TCLF 
<CE>. TCESCE 
<M>, TCIXUP 
<N>, TCSS2 
<0>, TCSS3 
<<A>, TCGOUK 
<<B>, TCGOAS 
<(0>, TCGOGR 
<)A>, TCGIAS 



Move cursor up 

Move cursor down 

Move cursor right 

Move cursor left 

Select graphic char set for VT52 

Select normal char set for VT52 

Cursor addressing 

Reverse index (VT52) 

Erase utithin a page 

Erase uithin a line 

Insert lines 

Delete lines 

Index <Move cursor down one line) 

Move to 1st column of next line 

Reverse index (move up 1 line) 

Single shift next char to G2 

Single shift next char to G3 

Designate 60 as UK 

Designate GO as ascii 

Designate GO as graphics 

Designate Gl as UK 



c 
I 
c 

I 
i 
i 

c 
f 

i 
i 
I 
C 

i 
t 
€ 

i 
i 
i 
i 

( 



TSWIN — 


- TSX-Pl 


us Display 


Wind 


CSFIN - 


— Process received 


con 


58 


001744 






59 


001752 






60 


001760 






61 


001766 






62 


001774 






63 


002002 






64 


002010 






65 


002016 






66 


002024 






67 


002032 






68 


002040 






69 


002044 






70 


002050 






71 


002054 


050 


074 


72 








73 


002060 


003354 ' 




74 


002062 


051 


074 


75 








76 


002066 


003412' 




77 


002070 


052 


074 


78 








79 


002074 


003450 ' 




80 


002076 


053 


074 


81 








82 


002102 


003476 ' 




S3 


002104 


074 


000 


84 


002106 


004474 ' 




85 


002110 


076 


000 


86 


002112 


004240 ' 




87 


002114 


000000 
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sequence 



000 



000 



000 



000 



ESCSEQ 


<)B>, TCGIAS 


ESCSEQ 


<)0>>TCGiGR 


ESCSEQ 


<#B>, TCG2AS 


ESCSEQ 


<#0>, TCG2GR 


ESCSEQ 


<+B>, TCG3AS 


ESCSEQ 


<+0>, TCG3GR 


ESCSEQ 


<#3>, TCN3 


ESCSEQ 


<#4>, TCN4 


ESCSEQ 


<#5>, TCN5 


ESCSEQ 


<#6>, TCN6 


ESCSEQ 


<7>, TCCPSV 


ESCSEQ 


<8>, TCCPRS 


ESCSEQ 


<=>, TCAKM 


. ASCIZ 


/ ( /<74> 


. EVEN 




. WORD 


TCGODS 


. ASCIZ 


/ ) /<74> 


. EVEN 




. WORD 


TCGIDS 


. ASCIZ 


/*/<74> 


. EVEN 




. WORD 


TCG2DS 


. ASCIZ 


/+/<74> 


. EVEN 




. WORD 


TCG3DS 


. ASCIZ 


<74> 


. WORD 


TCI 00 


. ASCIZ 


<76> 


. WORD 


TCNKM 


. WORD 






Designate Gl as ascii 

Designate Gl as graphics 

Designate 62 as ascii 

Designate G2 as graphics 

Designate G3 as ascii 

Designate G3 as graphics 

Line is top half of double-high line 

Line is bottom half of double high 

Line is single uiidth 

Line is double width 

Save cursor position 

Restore cursor position 

Select application keypad inode 

" (<" 

i Designate GO as DEC supplemental graphics 

i "X" 

; Designate Gl as DEC supplemental graphics 
i "*<" 

i Designate G2 as DEC supplemental graphics 

J Designate G3 as DEC supplemental graphics 

» Select ANSI mode with "<" character 

i Select ANSI mode 

; Generate entry with ">" character 

i Select numeric keypad mode 

i End of table 



i 
I 
f 
I 
( 
i 

i 
< 
c 
i 
« 
i 

€ 
I 

€ 



I 



c 
i 
f 

t 



I 

i 
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1 








2 








3 








4 








5 








6 








7 








9 








9 








10 








11 








12 








13 








14 








15 


002116 


010146 




16 


002120 


005001 




17 








IS 








19 








20 


002122 


112500 




21 


002124 


001430 




22 


002126 


120027 


000073 


23 


002132 


001432 




24 


002134 


120027 


000071 


25 


002140 


101370 




26 


002142 


120027 


000060 


27 


002146 


103765 




28 








29 








30 








31 


002150 


000412 




32 


002152 


112500 




33 


002154 


001420 




34 


002156 


120027 


000071 


35 


002162 


101016 




36 


002164 


120027 


000060 


37 


002170 


103413 




38 


002172 


070127 


000012 


39 


002176 


162700 


000060 


40 


002202 


060001 




41 


002204 


000762 




42 








43 








44 








45 


002206 


005305 




46 


002210 


005000 




47 


002212 


000261 




48 


002214 


000403 




49 








50 








51 








52 


002216 


005305 




53 


002220 


010100 




54 


002222 


000241 




55 








56 








57 









. 3BTTL CSPARM — Extract parameter value from control string 

CSPARM obtains the next parameter value from the control string. 
If there is no parameter value* is returned as the value. 
Non-parameter characters are skipped over. 

Inputs: 
R5 = Pointer into control string where parameter may start. 

Outputs: 
C-flag set ==> No more parameter values. 
RO = Accrued parameter value. 
R5 s= Points past end of parameter value. 



CSPARM: MOV 
CLR 



R1,-<SP) 
Rl 



; Accrue the value in Rl 
Scan up to the start of a parameter value 



1$: 



MOVE 


(R5)+, RO 


BEQ 


5* 


CMPB 


RO, #SEMI 


BEQ 


7* 


CMPB 


RO, #'9 


BHI 


1* 


CMPB 


RO, #'0 


BLO 


1* 



Get next char from control seq 

Br if hit end of the string 

Semicolon is value separator 

Br if no value specified for this param 

Is this a parameter character^' 

Br if not 



i Br if not digit 
We found the start of a parameter value. Accrue it. 



3*: 



4*: 



BR 


4* 


MOVB 


(R5)+, RO 


BEQ 


2« 


CMPB 


RO, #'9 


BHI 


7* 


CMPB 


RO, #'0 


BLO 


7* 


MUL 


#10. ,R1 


SUB 


#'0, RO 


ADD 


RO, Rl 


BR 


3* 



J Enter loop in middle 

j Get next char of parameter 

j Br if hit null at end of string 

i Is this char part of parameter? 

i Br if not 

i Br if not 

^Multiply previous value by 10. 

i Convert ascii digit to binary value 

iAdd into previous value 

iKeep accruing 



There are no more parameter values 



5*: 



DEC 


R5 


CLR 


RO 


SEC 




BR 


9* 



j Point to string terminator 

i Return as "value" 

i Signal that there are no more parameters 



Finished getting the parameter value 



2*: 
7*: 



DEC 
MOV 
CLC 

Finished 



R5 
Rl, RO 



i Point to parameter terminator 

; Get accrued value 

i Signal success on return 



c 
i 
I 

< 

I 
I 

€ 

i 

i 

I 
I 

I 



( 

4 



I 



I * 
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CSPARIi — Extract parameter value from control string 

58 002224 012601 9*: MOV <SP)+, Rl 

59 002226 000207 RETURN 



( 

f 



c 
f 

I* 

< 
< 

I 
I 

I* 

t 
I 

« 

t 
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TCBS — Process backspace character 

i . SBTTL TCBS ~~ Process backspace character 

Process a backspace character. 



2 

3 

4 

5 

6 

7 

8 
o 

10 
11 
12 
13 
14 
15 
16 
17 
IS 



002230 



002230 026227 0000000 000001 

002236 001402 

002240 005362 0000000 



002244 000207 



Inputs: 
R2 = Pointer to uindow control block 

TCBS: 

Set column number back one unless ue are already at column one 



CMP 
BEO 
DEC 

Finished 

9*: RETURN 



DW*C0L<R2), #1 iAre we already at column 1? 

9* i Br if yes 

DW*C0L(R2> i Move column number back one 



c 
i 
C 

i 
< 
i 
i 

f 

c 
f 

€ 
€ 

i 
€ 

( 
t 
4 
I 
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TCHT — Process horizontal tab character 

. SBTTL TCHT — Process horizontal tab character 

Process horizontal tab character. 

Inputs: 
R2 = Pointer to uindou) control block 



i 
2 
3 
4 
5 
6 
7 

a 

9 
10 
11 
12 
13 
14 
15 
16 
17 

la 

19 
20 
21 

22 
23 
24 
25 
26 
27 



002246 



002246 016200 0000000 

002252 005300 

002254 062700 000010 

002260 042700 000007 

002264 005200 



002266 020062 OOOOOOG 

002272 101402 

002274 016200 OOOOOOG 

002300 010062 OOOOOOG 



002304 000207 



TCHT: 

Get current column number and advance to next multiple of 8 



liOV DW*C0L<R2), RO 

DEC RO 

ADD #8. , RO 

BIC #7, RO 

INC RO 



Get current column number 
liake 1st column be # 
Advance to next tab stop 
Bound to next multiple of 8 
liake 1st column be # 1 



liake sure we don't go beyond end of line 



1*: 



CMP 
BLOS 
MOV 
MOV 

Finished 

RETURN 



RO, DW*CPL(R2) 
1* 

DW*CPL<R2),R0 
RO, DW*C0L<R2) 



/Compare with # columns per line 

i Br if within line 

> Force to end of line 

; Set new column number 



I 

f 



I 
I 

( 

c 
I 

i 

i 

t 

I 

I 

i 
i 
I 
I 
( 
I 
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TCCR — Process carriage return 



1 
2 
3 
4 
5 
6 
7 

8 002306 012762 000001 OOOOOOG TCCR: MOV 

9 i 

10 J Finished 

11 i 

12 002314 000207 RETURN 



. 3BTTL TCCR — Process carriage return 

Process carriage return* move to 1st char of current line. 

Inputs: 
R2 = Pointer to window control block. 

#1/ DW*C0L(R2) /Say current column = 1 



( 

i 

t 

c 
< 

I f 



I 



I 

( 
t 
I 

€ 

C 
I 

< 

( 
4 

C 
( 
I 
( 
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TCUP — Move cursor up specified number of lines 



J. 

c 

3 
4 
5 
6 
7 
S 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 



rcup 



— Move cursor up specified number of lines 



002316 



002316 004737 002116' 

002322 005700 

002324 001001 

002326 005200 



Move the cursor up the page the specified number of lines. 
Do not scroll if uie reach the bottom of the page. 

Inputs: 
R2 = Pointer to window control block 
R5 = Pointer to parameter value in control sequence 

TCUP: 

Get count of number of lines to move up 

i Accrue parameter value 
J Was specified value 0? 
i Br if not 
; Treat like 1 



CALL 


CSPARM 


TST 


RO 


BNE 


1* 


INC 


RO 



Move up specified number of lines 



1*: 



002330 005400 

002332 066200 OOOOOOG 

002336 003002 

002340 012700 000001 

002344 026262 OOOOOOG OOOOOOG 2*: 

002352 103405 

002354 020062 OOOOOOG 

002360 103002 

002362 016200 OOOOOOG 

002366 004737 006710' 3*: 



002372 000207 



j Get negative number of lines to move 
; Compute new line 

; Br if didn't go past top of page 
i Constrain to top of page 
DW*LIN(R2), DW*SRT(R2)J Were we already above top of scroll rgn? 

Br if yes — Don't constrain 

Would this put us above top of scroll regn? 

Br if not 

Constrain to top of scroll region 

Set new line for cursor 



NEG 


RO 


ADD 


DW$LIN<R2)>R0 


BGT 


2* 


MOV 


#liRO 


CMP 


DW*LIN(R2)/ DW 


BLO 


3* 


CMP 


RO, DW*SRT<R2) 


BHIS 


3* 


MOV 


DW«SRT(R2),R0 


CALL 


SETLIN 


Finished 




RETURN 





i 
I 

( 

€ 

i 



i 
i 



c 
i 
c 

4 
i 
i 
i 
i 
I 
I 
f 
t 
t 
i 
I 

i 

{ 
I 

i 



TSWIN - 
TCDOWN 



TSX-Pl 
- Move 



us Display Windo MACRO V05. 05 Wednesday 18-Jan-89 14:17 Page IS 
cursor doiun specified number of lines 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 



. 3BTTL TCDOWN 



Move cursor doufn specified number of lines 



002374 



002374 
002400 
002402 
002404 



002406 
002412 
002416 
002420 



002424 
002432 
002434 
002440 
002442 
002446 



J Move the cursor down the page the specified number of lines. 

i Do not scroll if me reach the bottom of the page. 

i Inputs: 

> R2 - Pointer to windou control block 

* R5 = Pointer to parameter value in control sequence 

} 

TCDOWN: 

i 

i Get count of number of lines to move down 



004737 002116' 

005700 

001001 

005200 



066200 OOOOOOG 

020062 OOOOOOG 

101402 

016200 OOOOOOG 



CALL 


CSPARM 


TST 


RO 


BNE 


1* 


INC 


RO 



i Accrue parameter value 
i Was specified value O? 
; Br if not 
i Treat like 1 



Move down specified number of lines 



1*: 



ADD DW*LIN(R2)*R0 

CMP RO, DW*LPP<R2> 

BLOS 3* 

MOV DW*LPP<R2),R0 



i Compute new line 

; Would this go past end of page? 

; Br if not 

; Constrain to bottom of page 



026262 OOOOOOG OOOOOOG 3*: 

101005 

020062 OOOOOOG 

101402 

016200 OOOOOOG 

004737 006710' 2*: 



If we are currently with the scroll region, don't move out 

DW*LIN<R2), DW*SRB<R2); Were we already past end of scroll? 

Br if past end — Don't constrain 
Did we go past end of scroll region? 
Br if not 

Stop at bottom of scroll region 
Set new line for cursor 



002452 000207 



CMP 


DW*LIN<R2),DW 


BHI 


2* 


CMP 


RO, DW$SRB(R2) 


BLOS 


2* 


MOV 


DW*SRB(R2>,R0 


CALL 


SETLIN 


Finished 




RETURN 





i 

f 

t 

« 

i 
c 
t 
c 
I 

i 

i 

i 



i 

i 
i 



TSWIN — 


- TSX-Pl 


us Disp3 


ay Windo 


TCLF 

1 
2 
3 


— Process Line 


Feed cha 








4 








5 








6 








7 








8 


002454 






9 








10 








11 








12 








13 


002454 


016200 


OOOOOOG 


14 


002460 


020062 


OOOOOOG 


15 


002464 


001411 




16 


002466 


005200 




17 


002470 


020062 


OOOOOOG 


18 


002474 


101402 




19 


002476 


016200 


OOOOOOG 


20 


002502 


004737 


006710' 


21 


002506 


000402 




22 








23 








24 








25 








26 


002510 


004737 


005154' 


27 








28 








29 








30 


002514 


000207 
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. SBTTL TCLF — Process Line Feed character 

Process a line feed character. Move down to the next line. 

Inputs: 
R2 = Pointer to tuindoui control block 

TCLF: 

If me are not at the bottom line of a scrolling region, simply 
advance the line number. 

Get the current line number 
Are uje at bottom of scrolling region? 
Br if yes 

Increment the line number 
Are me past the end of the page? 
Br if not 

Constrain to bottom of page 
2*: CALL SETLIN ; Set this as current line 



We are at the bottom line of a scroll region. 
We must scroll up one line. 



MOV 


DW*LIN<R2),R0 


CMP 


RO, DW*SRB<R2) 


BEQ 


1* 


INC 


RO 


CMP 


RO, DW*LPP<R2) 


BLOS 


2* 


MOV 


DW*LPP(R2>,R0 


CALL 


SETLIN 


BR 


9* 



1*: CALL SCRLUP 

Finished 
9*: RETURN 



i Scroll up one 1 ine 



f 

c 
I 
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TCESCE — Move to ist column of next line 



J. 
2 
3 
4 
5 
6 
7 

e 

9 002516 004737 002306' 

10 002522 004737 002454' 

11 002526 000207 



3BTTL TCESCE — Move to 1st coiumn of next line 



Move to first column of next line. Equivalent to carriage-return* 
1 ine-f eed. 



Inputs: 
R2 = Pointer to uindow control block. 



TCESCE: CALL TCCR 
CALL TCLF 
RETURN 



/Simulate carriage return 
iSimulate line feed 



( 

4 
C 
I 
C 
I 
( 
( 
( 
4 
I 
( 



TSWIN -- 


- TSX-Pl 


us Disp] 


ay Uindo 


TCIXUP - 


— Index 


up one 


1 ine 


1 
2 








3 








4 








5 








6 








7 








e 








9 


002530 






10 








11 








12 








13 








14 


002530 


016200 


OOOOOOG 


15 


002534 


020062 


ooooooe 


16 


002540 


001406 




17 


002542 


005300 




18 


002544 


003001 




19 


002546 


005200 




20 


002550 


004737 


006710' 


21 


002554 


000402 




22 








23 








24 








25 








26 


002556 


004737 


005274 ' 


27 








28 








29 








30 


002562 


000207 
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. SB7TL TCIXUP — Index up one line 

Move the cursor up one line. Scroll the screen if uie are on the top line. 

Inputs: 
R2 = Pointer to window control block 
R5 = Pointer to parameter value start in control sequence 

TCIXUP: 

If we are not at the top line of a scrolling region^ 
simply decriment the line number. 

Get current line number 

Are we at top of scrolling region? 

Br if yes 

Decrement line number 

Br if didn't go past line 1 

Constrain to line 1 

Set this as current line 



2*: 



MOV 


DW*LIN(R2),R0 


CMP 


RO, DW*SRT<R2) 


BEQ 


1* 


DEC 


RO 


BGT 


2* 


INC 


RO 


CALL 


SETLIN 


BR 


9* 



We are at the top line of a scroll region. 
We must scroll down one line. 



1*: CALL SCRLDN 

Finished 
9*: RETURN 



; Scroll down one line 



t 
I 
I 
« 
I 
< 

i 
i 
I 
t 
i 
t 

€ 

4 



t 
4 



i 

i 

t 



c 
« 
c 
I 

I 

I 

€ 

I 

i 

I 

t 



TSWIN — 
TCRIT - 



3 

4 

5 

6 

7 

8 

9 

10 

11 

12 
1 r> 



TSX-Plus Display Windo MACRO 
- Move cursor right specified 
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number of chars 



002564 



002570 
002572 
002574 



14 
15 
16 
17 
18 
19 
20 
21 
22 
23 

24 002576 

25 002602 

26 002606 

27 002610 

28 002614 
29 

30 
31 
32 002620 






005700 
001001 
005200 



066200 
020062 
101402 
016200 
010062 



000207 



OOOOOOG 
OOOOOOQ 

OOOOOOG 
OOOOOOG 



SBTTL TCRIT 



Move cursor right specified number of chars 



Move cursor right a specified number of characters. 

Inputs: 
R2 = Pointer to ufindow control block 
R5 = Pointer to parameter value in control sequence 

TCRIT: 

Get parameter value of number of chars to move 

CALL CSPARM /Get parameter value 

Translate parameter value of to 1 



TST 
BNE 
INC 



RO 
1* 
RO 



J Parameter value zero? 

i Br if not 

i Translate to 1 



1$; 



2«: 



Move the cursor the specified number of columns but don't go past 
right margin. 

> Get updated cursor column 
;Did uje go past right column? 
i Br if not 

jConstrain to right column 
;Set new column number 



ADD 


DW*C0L<R2>,R0 


CMP 


RO, DW«CPL<R2) 


BLOS 


2* 


MOV 


DW*CPL<R2),R0 


MOV 


RO, DW*C0L<R2) 


Finished 




RETURN 
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- Move cursor left specified number of chars 



002622 



004 



002626 005700 
002630 001001 
002632 005200 



002116' 



002634 005400 

002636 066200 OOOOOOG 

002642 003002 

002644 012700 000001 

002650 010062 OOOOOOG 



002654 000207 



. SBTTL TCLEFT — Move cursor left specified number of chars 

Move cursor left a specified number of characters. 

Inputs: 
R2 = Pointer to uiindoui control block 
R5 = Pointer to parameter value in control sequence 

TCLEFT: 

Get parameter value of number of chars to move 

CALL C3PARM » Get paramcuer s/ajLUB 

Translate parameter value of to 1 

/Parameter value zero? 

j Br if not 

i Translate to 1 

Move the cursor the specified number of columns but don't go past 
left margin. 



TST 


RO 


BNE 


1* 


INC 


RO 



1*; 



?*: 



NEG 


RO 


ADD 


DW*C0L(R2),R0 


BGT 


2* 


MOV 


#1.R0 


MOV 


RO, DW*C0L<R2) 


inished 




RETURN 





Get negative movement count 
Get updated cursor column 
Br if didn't go past column 1 
Constrain to column 1 
Set new column number 
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TCCADR — Do direct cursor addressing 

. SBTTL TCCADR — Do direct cursor addressing 

Move cursor to a specified line and column. 

Inputs: 
R2 = Pointer to window control block. 
R5 = Pointer to parameter string within control sequence 

002656 TCCADR: 

Get line number parameter 



1 
2 
3 
4 
5 
6 
7 

e 

9 
10 

11 

12 

14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
20 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 



002662 005700 

002664 001001 

002666 005200 

002670 032762 OOOOOOG 0000000 1*: 

002676 001410 

002700 066200 OOOOOOG 

002704 005300 

002706 020062 OOOOOOG 

002712 101402 

002714 016200 OOOOOOG 

002720 020062 OOOOOOG 5*: 

002724 101402 

002726 016200 OOOOOOG 

002732 004737 006710' 2*: 



CALL 


CSPARM 


TST 


RO 


BNE 


1* 


INC 


RO 


BIT 


#AW$ORS. DW$AW 


BEQ 


5* 


ADD 


DW*SRT<R2).R0 


DEC 


RO 


CMP 


RO, DW*SRB<R2) 


BLOS 


5* 


MOV 


DW*SRB<R2).R0 


CMP 


RO, DW*LPP(R2) 


BLOS 


2* 


MOV 


DW*LPP(R2>,R0 


CALL 


SETLIN 



/AtCfUe line riUiiiuBr pArttmetsv 



i Translate to 1 

; Force to 1 
#AW*ORS, DW*AW<R2)i Is origin relative to scrolling region? 

Br if not 

Bias line number by top of scrolling region 
Top line number is 1 

Don't allow to go past end of scroll region 
Br if ok 

Constrain to bottom of scroll region 
Don't go past bottom of page 
Br if ok 

Constrain to bottom of page 
Set new line as current line 



Get column number parameter 



002736 004737 002116' 

002742 005700 

002744 001001 

002746 005200 

002750 020062 OOOOOOG 

002754 101402 

002756 016200 OOOOOOG 

002762 010062 OOOOOOG 



002766 000207 



3*: 



4*: 



CALL 


CSPARM 


TST 


RO 


BNE 


3* 


INC 


RO 


CMP 


RO. DW*CPL<R2) 


BLOS 


4* 


MOV 


DW*CPL<R2),R0 


MOV 


RO, DW*C0L<R2) 


Finished 




RETURN 





Accrue column number parameter 

Don't allow column 

Br if non zero 

Translate to 1 

Don't allow to go past right margin 

Br if ok 

Constrain to right margin 

Set new column number 
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— Save current cursor position 



on ! 1 1_ I ^s^rav 



SeiVS CU~rSiit CUrSur pOSitiuii 



002770 



002770 116262 OOOOOOG OOOOOOG 



Save the current cursor position and character attributes. 

Inputs: 
R2 = Pointer to window control block. 

TCCPSV: 

Save cursor position 

MOVE DW*LIN(R2). DW*SLN<R2)i Save current line number 
MQVB DW*C0L(R2),DW*SCL<R2)i Save current column number 



i Save character attributes 

003004 116262 OOOOOOG OOOOOOG MOVE DW*CCA(R2) , DW*SCA<R2) ; Save character attribute flags 

; Finished 

003012 000207 RETURN 

. SBTTL TCCPRS — Restore cursor position 

Restore cursor position and character attributes from saved data. 

Inputs: 
R2 = Pointer to uindou) control block. 



003014 



003014 116262 OOOOOOG OOOOOOG 



003022 116200 OOOOOOG 
003026 004737 006710' 



TCCPRS: 

Restore the column number 

MOVE DW*SCL(R2), DW*C0L(R2); Restore column number 

Restore the line number 

MOVE DW*SLN(R2), RO i Get saved line number 
CALL SETLIN i Set as current line number 



i Restore character attributes 

i 

003032 116262 OOOOOOG OOOOOOG MOVE DW*SCA(R2) , DW*CCA(R2) ; Restore character attribute flags 

f Finished 
003040 000207 RETURN 
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I 
2 
3 
4 
5 
6 
7 
8 
9 
10 

11 003042 010146 

12 003044 010346 
XJ u03w+o uAw44o 

14 003050 010546 
15 

16 
17 

15 003052 016203 OOOOOOG 

19 003056 020362 OOOOOOG 

20 003062 103444 

21 003064 020362 OOOOOOG 

22 003070 101041 
23 

24 
25 

26 003072 004737 

27 003076 005700 

28 003100 003002 

29 003102 012700 

30 003106 016201 

31 003112 160301 

32 003114 005201 

33 003116 020100 

34 003120 101413 
35 

36 
37 

38 003122 010103 

39 003124 160003 

40 003126 010001 

41 003130 016205 OOOOOOG 

42 003134 010504 

43 003136 160104 

44 003140 004737 006354' 

45 003144 005305 

46 003146 077306 
47 

48 
49 

50 003150 016203 OOOOOOG 

51 003154 010300 

52 003156 004737 006240' 

53 003162 005203 

54 003164 077105 
55 

56 
57 
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. SBTTL iCINSL 



Insert lines 



Insert a specified number of lines in front of the line in which 
the cursor is currently resting. The cursor is left positioned 
at column 1 of the first inserted line. 



Inputs: 
R2 = Pointer to uiindow control block 
R5 = Pointer to command string argument 



TCINSL: MOV 
MOV 
MOV 
MOV 



R 1 , - < SP ) 
R3, -(SP) 
R4i -<SP ) 
R5, -<SP) 



Ignore this command if we are not within the scroll region 



MOV DW*LIN(R2),R3 

CMP R3, DW*SRT<R2) 

BLO 9* 

CMP R3, DW*SRB(R2) 

BHI 9* 



; Get current line number 

j Are we above top to scroll region? 

; Br if yes 

i Are we below bottom of scroll region? 

; Br if yes 



1$: 



CALL 


CSPARM 


TST 


RO 


BGT 


1* 


MOV 


#1,R0 


MOV 


DW$SRB<R2),R1 


SUB 


R3, Rl 


INC 


Rl 


CMP 


RliRO 


BLOS 


2* 



3*: 



Determine how many lines will be inserted 

Get command parameter 

Was specified^' 

Br if not 

Set it to 1 

Get bottom line # of scroll region 

Get # lines from current to end of region 

This is max # inserted lines 

Can we scroll as many as requested? 

Br if all lines are scrolled off 

Scroll down lines to make room for inserted lines 

i Get number of lines to scroll 

i Get # lines being inserted 

; Get # of line at bottom of scroll reg 

j Get # of line to copy to bottom 
iCopy a line down 

i Get next destination line number 
iLoop if more lines to scroll down 



MOV 


R1,R3 


SUB 


RO, R3 


MOV 


RO, Rl 


MOV 


DW*SRB<R2),R5 


MOV 


R5, R4 


SUB 


R1,R4 


CALL 


CPYLIN 


DEC 


R5 


SOB 


R3, 3* 



Blank fill inserted lines 



2*: 
4$: 



MOV 


DW*LIN<R2>,R3 


MOV 


R3, RO 


CALL 


CLRLIN 


INC 


R3 


SOB 


Rl,4* 



Get top line to blank 

Get # of line to clear 

Clear that line 

Advance line number 

Loop if more lines to clear 



Move cursor to column 1 
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58 003166 012762 000001 OOOOOOG MOV #1, DW*C0L<R2) , Say cursor is at column 1 

59 i 

60 ; Finished 

61 ; 

62 003174 012605 9$: MOV (SP)+, R5 < 

63 003176 012604 MOV <SP)+, R4 

64 003200 012603 MOV <SP)+, R3 

65 003202 012601 MOV <SP)+, Rl i 

66 003204 000207 RETURN 
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- Delete specified number of lines 



003206 010146 
003210 010346 
003212 010446 



. SBTTL TCDELL — Delete specified number of lines 

Delete the specified number of lines starting with the one in which 
the cursor is positioned. 

Inputs: 
R2 = Pointer to windoiu control block 
R5 = Pointer to command string argument 



TCDELL: 



MOV 
MOV 
MOV 
MOV 



R 1 , - < SP > 
R3, -<SP) 
R4, -(SP) 
R5/ -<5P > 



Ignore this command if we are not within the scroll region 



003216 016203 OOOOOOG 

003222 020362 OOOOOOG 

003226 103442 

003230 020362 OOOOOOG 

003234 101037 



003236 004737 002116' 

003242 005700 

003244 003002 

003246 012700 000001 

003252 016201 OOOOOOG 

003256 160301 

003260 005201 

003262 020100 

003264 101412 



003266 010305 

003270 010103 

003272 160003 

003274 010001 

003276 010504 

003300 060104 

003302 004737 006354 ' 

003306 005205 

003310 077306 



003312 016203 OOOOOOG 

003316 010300 

003320 004737 006240 ' 

003324 077104 



003326 012762 000001 OOOOOOG 



MOV DW«LIN<R2),R3 

CMP R3, DW«SRT<R2) 

BLO 9* 

CMP R3, DW*SRB<R2) 

BHI 9* 



j Get current line number 

> Are we above top to scroll region? 

i Br if yes 

; Are we below bottom of scroll region? 

; Br if yes 



Determine how many lines will be deleted 



1*: 



CALL 


CSPARM 


TST 


RO 


BGT 


1* 


MOV 


#1,R0 


MOV 


DW*SRB(R2),R1 


SUB 


R3, Rl 


INC 


Rl 


CMP 


RliRO 


BLOS 


2* 



Get command parameter 

Was specified? 

Br if not 

Set it to 1 

Get bottom line # of scroll region 

Get # lines from current to end of region 

This is max # deleted lines 

Can we delete as many as requested? 

Br if all lines are deleted 



Scroll up the remaining lines. 



3*: 



MOV 


R3, R5 


MOV 


RliR3 


SUB 


RO, R3 


MOV 


RO, Rl 


MOV 


R5, R4 


ADD 


R1,R4 


CALL 


CPYLIN 


INC 


R5 


SOB 


R3, 3* 



J Get current line number 

i Get number of lines to scroll 

j Get # lines being inserted 

; Get line to copy from 

i Copy a line up 

i Advance line number 

; Br if more lines to copy 



Blank fill lines at end of scrolling region 



2*: 
4«: 



MOV 


DW*SRB(R2),R3 


MOV 


R3, RO 


CALL 


CLRLIN 


SOB 


Rl,4« 



Say cursor is at column 1 
MOV #1, DW*C0L<R2) 



i Get # of line at bottom of region 

j Get # of line to blank fill 

; Blank the 1 ine 

i Loop if more lines to blank 



Say cursor is at column 1 
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TCDELL — Delete specified number of lines 

58 i Finished 

59 ; 

60 003334 012605 9*: MOV <SP)+, R5 

61 003336 012604 MOV (SP)+, R4 

62 003340 012603 MOV (SP)+, R3 

63 003342 012601 MOV <SP)+, Rl 

64 003344 000207 RETURN 
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character set 



. SBTTL TCGOAS — Designate GO as ascii character set 
Designate the GO character set as ascii characters. 



Inputs; 
R2 = Pointer to window control block 



105062 OOOOOOG 
000207 



TCGOAS: CLRB DW*G0M(R2) 
RETURN 



;Set character set number 



14 

15 

16 

17 

IB 003354 

19 003362 

20 

21 

22 

23 

24 

25 

26 

27 

28 003364 

29 003372 
30 

31 
32 
33 
34 
35 
36 
37 

38 003374 

39 003402 



112762 000001 
000207 



1 1 2762 000002 
000207 



112762 000003 
000207 



.SBTTL TCGODS — Designate 00 as DEC supplemental character set 

Designate the GO character set as DEC supplemental character set. 

Inputs: 
R2 = Pointer to window control block. 

OOOOOOG TCGODS: MOVB #1. DW*G0M<R2) i Set character set number 

RETURN 

. SBTTL TCGOUK — Designate GO as UK national character set 

i Designate the GO character set as UK national character set. 

i 

! Inputs: 

i R2 = Pointer to window control block. 

OOOOOOG TCGOUK: MOVB #2, DW«G0M<R2) ; Set character set number 

RETURN 

. SBTTL TCGOGR — Designate GO as graphics character set 

Designate the GO character set as graphics characters. 

Inputs: 
R2 = Pointer to window control block. 

OOOOOOG TCGOGR: MOVB #3, DW$G0M<R2) i Set character set number 

RETURN 
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character set 



. SBTTL TCOIAS — Designate SI as ascii character se 

Designate the Gl character set as ascii characters. 

Inputs: 
R2 = Pointer to ujindow control block 



8 003404 

9 003410 
10 

11 



14 
15 
16 
17 

18 003412 

19 003420 
20 

21 
22 
23 
24 
25 
26 
27 

28 003422 

29 003430 
30 

31 
32 
33 
34 
35 
36 
37 

38 003432 

39 003440 



105062 OOOOOOG 
000207 



TCGIAS: CLRB DW*G1M<R2> 
RETURN 



i Set character set number 



112762 
000207 



000001 



112762 
000207 



000002 



112762 
000207 



000003 



.SBTTL TCGIDS — Designate Gl as DEC supplemental character set 

Designate the SI character set as DEC supplemental character set. 

Inputs: 
R2 = Pointer to window control block. 

OOOOOOG TCGIDS: MOVB #1* DW*G1M<R2) J Set character set number 

RETURN 

. SBTTL TCGIUK — Designate Gl as UK national character set 

Designate the Gl character set as UK national character set. 

Inputs: 
R2 = Pointer to uindou; control block. 

OOOOOOG TCGIUK: MOVB #2, DW*G1M(R2) i Set character set number 

RETURN 

.SBTTL TCGIGR — Designate Gl as graphics character set 

Designate the Gl character set as graphics characters. 

Inputs: 
R2 = Pointer to window control block. 

OOOOOOG TCGIGR: MOVB #3, DW*G1M< R2) ; Set character set number 

RETURN 
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character set 

. 3BTTL TCG2AS — Designate G2 as ascii character set 

Designate the S2 character set as ascii characters. 

Inputs: 
R2 = Pointer to ujindow control block 



003442 105062 0000000 
003446 000207 



TCG2AS: CLRB DW*G2M<R2) 
RETURN 



; Set character set number 



003450 112762 000001 
003456 000207 



003460 112762 000003 
003466 000207 



. SBTTL TCG2DS — Designate G2 as DEC supplemental character set 

Designate the G2 character set as DEC supplemental character set. 

Inputs: 
R2 = Pointer to window control block. 

OOOOOOG TCG2DS: MOVE #1 , DW«G2M<R2) iSet character set number 

RETURN 

. SBTTL TCG20R — Designate G2 as graphics character set 

Designate the G2 cbaractBr set as graphics characters. 

Inputs: 
R2 = Pointer to window control block. 

OOOOOOG TCG2GR: MOVE #3, DW*G2M<R2) i Set character set number 

RETURN 
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. SBTTL TCG3AS — Designate G3 as ascii character set 

Designate the G3 character set as ascii characters. 

Inputs: 
R2 = Pointer to windotu control block 



003470 105062 OOOOOOG 
003474 000207 



TCG3AS: CLRB DW*G3M<R2) 
RETURN 



; Set character set number 



14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 



003476 112762 000001 
003504 000207 



003506 112762 000003 
003514 000207 



.SBTTL TC03DS — Designate G3 as DEC supplemental character set 

e:»Jil^liawtr Vtlfef UfO unartauwcrr ::>eif caa i./C»w auppAciifWiiwiaA wiicaiai.iri:;i 3i7i«. 

Inputs: 
R2 = Pointer to window control block. 

OOOOOOG TCG3DS: MOVE #1 , DW*G3M<R2> ; Set character set number 

RETURN 

. SBTTL TCG3GR — Designate G3 as graphics character set 

Designate the G3 character set as graphics characters. 

Inputs: 
R2 = Pointer to window control block. 

OOOOOOG TCG3GR: MOVE #3, DW*G3M<R2) i Set character set number 

RETURN 
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TCSO — Shift-out character ~ Lock shift Gl to GL 



1 
2 
3 
4 
5 
6 
7 



. SBTTL TCSO — Shift-out character - Lock shift Gl to GL 
The shift-out character is used to lock character set Gl to GL. 



Inputs: 
R2 = Pointer to (uindouj control block 



MOVB #1,DW*GLM(R2) ; Map GL to Gl 
RETURN 



.SBTTL TCSI — Shift-in character - Lock shift GO to GL 
The shift-in character is us-ed to lock character set GO to GL. 



Inputs: 
R2 = Pointer to window control block. 



TCSI: 



CLRB DW*GLM(R2) 
RETURN 



i Map GL to GO 



8 003516 112762 000001 OOOOOOG TCSO: 

9 003524 000207 
10 
11 
12 
13 
14 
15 
16 
17 

18 003526 105062 OOOOOOG 

19 003532 000207 

20 

21 

22 

23 

24 

25 i Inputs: 

"^^ ; R2 = Pointer to window control block. 

27 

28 003534 112762 000002 OOOOOOG TCLS2: MOVB #2, DW«GLM(R2) i Map GL to G2 

29 003542 000207 RETURN 
30 

31 
32 



.SBTTL TCLS2 — Lock shift G2 to GL 
Set G2 as current GL character set 



•SBTTL TCLS3 — Lock shift G3 to GL 



33 
34 
35 
36 
37 



Set G3 as current GL character set. 

Inputs: 
R2 = Pointer to window control block. 



.SBTTL TCLSIR — Lock shift Gl into GR 



38 003544 112762 000003 OOOOOOG TCLS3: MOVB #3, DW*GLM<R2) i Map GL to G3 

39 003552 000207 RETURN 
40 

41 
42 
43 
44 
45 
46 
47 



Set Gl as current GR character set. 

Inputs: 
R2 = Pointer to window control block. 



.SBTTL TCLS2R — Lock shift G2 into GR 



48 003554 112762 000001 OOOOOOG TCLSIR: MOVB # 1 . DW*GRM ( R2 > i Map GR to Gl 

49 003562 000207 RETURN 
50 

51 
52 
53 
54 
55 
56 
57 



Set 02 as the GR character set. 

Inputs: 
R2 = Pointer to window control block. 
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5S 003564 

59 003572 

60 

61 

62 

63 

64 

65 

66 

67 

68 003574 

69 003602 

~7r\ 
f w 

71 
72 
73 
74 
75 
76 
77 

78 003604 

79 003612 

80 003620 
81 

82 
83 
84 
85 
86 
87 
88 

89 003622 

90 003630 

91 003636 



112762 
000207 



000002 OOOOOOG TCLS2R: MOVB #2, DW*GRM<R2) » Map GR to G2 

RETURN 



. SBTTL TCLS3R 



Lock shift G3 into GR 



1 1 2762 
000207 



Set 03 as the OR character set. 

Inputs: 
R2 = Pointer to luindouf control block. 

000003 OOOOOOG TCLS3R: MOVB #3, DW*GRM<R2> i Map GR to G3 

RETURN 

.SBTTL TCSS2 — Single shift G2 to GL 



112762 000002 
052762 OOOOOOG 
000207 



OOOOOOG 
OOOOOOG 



Set G2 as GL for next character only. 

Inputs: 
R2 = Pointer to uindom control block. 

TCSS2: MOVB #2, DW*GLS(R2) i Map GL to G2 for next character only 
BIS #AW*SS, DW*AW<R2)i Remember single shift is pending 
RETURN 



. SBTTL TCSS3 



Single shift G3 to GL 



1 1 2762 000003 
052762 OOOOOOG 
000207 



OOOOOOG 
OOOOOOG 



Set G3 as GL for next character only. 

Inputs: 
R2 = Pointer to window control block. 

TCSS3: MOVB #3, DW*GLS<R2) i Map GL to G3 for next character only 
BIS #AW*SS, DW$AW(R2)i Remember single shift is pending 
RETURN 
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TCSAA — Set ANSI attribute 
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003640 


010346 




10 


003642 


012703 


004120' 


11 


003646 


004737 


003730 ' 


12 


003652 


012603 




13 


003654 


000207 




14 








15 








16 








17 








le 








19 








20 








21 








22 








23 


003656 


010346 




24 


O0366O 


012703 


004120' 


25 


003664 


004737 


003766 ' 


26 


003670 


012603 




27 


003672 


000207 




28 








29 








30 








31 








32 








33 








34 








35 








36 








37 


003674 


010346 




38 


003676 


012703 


004126' 


39 


003702 


004737 


003730 ' 


40 


003706 


012603 




41 


003710 


000207 




42 








43 








44 








45 








46 








47 








48 








49 








50 








51 


003712 


010346 




52 


003714 


012703 


004126' 


53 


003720 


004737 


003766 ' 


54 


003724 


012603 




55 


003726 


000207 
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. SBTTL TCSAA — Set ANSI attribute 

Set an ANSI terminal attribute. 

Inputs: 
R2 = Pointer to window control block 
R5 = Pointer to parameter values 



TCSAA: MOV R3, -(SP) 

MOV #ASATAT, R3 

CALL TCSTA 

MOV <SP)+, R3 
RETURN 



; Point to ANSI conversion table 
; Go set the attribute 



SBTTL TCRAA — Reset ANSI attribute 



Reset an ANSI terminal attribute. 

Inputs: 
R2 = Pointer to window control block 
R5 = Pointer to parameter values 



TCRAA: MOV R3, -(SP) 

MOV #ASATAT, R3 

CALL TCRTA 

MOV (SP)+, R3 
RETURN 



i Point to ANSI conversion table 
i Reset the attribute 



SBTTL TCSDA -- Set DEC attribute 



Set a DEC terminal attribute 

Inputs: 
R2 = Pointer to window control block 
R5 = Pointer to parameter values 



TCSDA: MOV R3, -<SP) 

MOV #DECTAT, R3 

CALL TCSTA 

MOV (SP)+>R3 
RETURN 

. SBTTL TCRDA 



/Point to DEC conversion table 
/Set the attribute 



Reset DEC attribute 



f 

€ 
I 

( 

« 
i 



Reset a DEC terminal attribute 

Inputs: 
R2 = Pointer to window control block 
R5 = Pointer to parameter values 



TCRDA: MOV R3, -<SP) 

MOV #DECTAT. R3 

CALL TCRTA 

MOV (SP)+, R3 
RETURN 



/Point to DEC conversion table 
/Reset the attribute 



i 

i 
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TSX-Plus Display Windo MACRO 
— Set terminal attribute 



10 003730 

n 

12 
13 

14 003732 

15 003736 
16 

17 
18 

19 003740 

20 003742 

21 003746 
22 

23 

24 

25 003750 

26 

27 

28 

29 003754 

30 

31 

32 

33 003760 

34 

35 

36 

37 003762 

38 003764 



010446 



004737 002116' 
103411 



010004 

004737 004066 ' 

103771 



050062 OOOOOOG 



004737 004160 



000764 



012604 
000207 
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. SBTTL TCSTA — Set terminal attribute 
Set a terminal attribute 



Inputs: 
R2 = Pointer to windouj control block 

R3 = Pointer to table to convert attribute value to flag bit 
R5 = Pointer to parameter values 

TCSTA: MOV R4, ~<SP) 

i 

i Begin loop to accrue attribute parameters until end of string hit 



1*: 



CALL 
BCS 



CSPARM 
9* 



i Accrue next parameter value 

j Br if no more parameter values 



Convert parameter value into flag mask 



MOV 

CALL 

BCS 



RO, R4 

CVTTAV 

1* 



; Save parameter value 

/Convert parameter value into flag mask 

i Br if parameter not recognized 



Set appropriate flag bit 

BIS R0>DW«AW<R2) J Set appropriate attribute flag 
See if this change requires doing more than setting a flag bit 

CALL CKTAC i Check for additional changes 

See if there are more attributes to set 

BR 1$ 
Finished 

9*: MOV (SP)+, R4 

RETURN 
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TCRTA — Reset terminal attribute 

. SBTTL TCRTA — Reset terminal attribute 

Reset a terminal attribute 



2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 



003766 01044i: 



003770 004737 002116' 
003774 103432 



003776 020327 004120' 

004002 001416 

004004 020027 000002 

004010 001013 

004012 052762 0000000 OOOOOOG 

004020 116204 OOOOOOG 

004024 116404 OOOOOOG 

004030 052764 OOOOOOG OOOOOOG 

004036 000754 



004040 010004 

004042 004737 004066 ' 

004046 103750 



004050 040062 OOOOOOG 



004054 004737 004160' 



004060 000743 



004062 012604 
004064 000207 



Inputs: 
R2 = Pointer to windoui control block 

R3 = Pointer to table to convert attribute value to flag bit 
R5 = Pointer to parameter values 

TCRTA: MOV R4, -<SP) 

Begin loop to accrue attribute parameters until end of string hit 



1*: 



CALL 
BCS 



CSPARM 
9* 



> Accrue next parameter value 
; Br if no more parameters 



Check for special parameter value 2 which means select VT52 mode 



CMP 

BEQ 

CMP 

BNE 

BIS 

MOVE 

MOVE 

BIS 

BR 



R3, #ASATAT 

2* 

RO, #2 

2* 



;ANSI or DEC reset mode 

iBR if ANSID 

; Select VT52 mode? 

; Br if not 

#AW*S52, DW*AW<R2); Enable VT52 simulation mode for uindow 
DW$J0B(R2) ' R4 ; Get out job index number 
LNPRIM<R4)> R4 ; Get our primary job # 
#*V52EM, LSWll(R4)i Say we are emulating a VT52 
1* 



2*: 



MOV 


RO, R4 


CALL 


CVTTAV 


BCS 


1* 



9* 



Convert parameter value into flag mask 

; Save parameter value 

i Convert parameter value into flag mask 

J Br if parameter value not recognized 

Reset appropriate flag bit 

BIC R0iDW*AW<R2) ; Reset appropriate attribute flag 
See if this change requires doing more than clearing a bit 

CALL CKTAC ; Check for special mode changes 

See if there are more attributes to reset 

BR 1* 

Finished 

MOV (SP)+, R4 
RETURN 
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1 
2 








3 








4 








5 








6 








7 








8 








9 








10 








11 








12 








13 


004066 


010346 




14 








15 








16 








17 


004070 


020023 




18 


004072 


001406 




19 


004074 


005723 




20 


004076 


005713 




21 


004100 


001373 




22 








23 








24 








25 


004102 


005000 




26 


004104 


000261 




27 


004106 


000402 




28 








29 








30 








31 


004110 


011300 




32 


004112 


000241 




33 








34 








35 








36 


004114 


012603 




37 


004116 


000207 




38 








39 








40 








41 








42 


004120 


000004 


OOOOOOG 


43 


004124 


000000 




44 








45 








46 








47 


004126 


000001 


0000000 


48 


004132 


000003 


OOOOOOG 


49 


004136 


000005 


OOOOOOG 


50 


004142 


000006 


OOOOOOG 


51 


004146 


000010 


OOOOOOG 


52 


004152 


000031 


OOOOOOG 


53 


004156 


000000 





. SBTTL CVTTAV — Convert terminal attribute value to flag 

Convert a terminal attribute parameter value into a flag mask. 

Inputs: 
RO = Attribute value 
R3 = Pointer to table to convert attribute value to flag bit 

Outputs: 
C-flag set ==> Attribute value not recognized 
RO = Flag mask if attribute value recognized 

■w V 1 I n V . nUv njj ~ s or" / 

See if we can find attribute value in table 

1*; CMP R0» <R3)+ i Is next entry for our value? 

i Br if yes 

iSkip over flag mask 
j Is there another entry in table? 
» Br if yes 



CMP 


RO, <R3) + 


BEQ 


2« 


TST 


<R3) + 


TST 


<R3) 


6NE 


1* 



Attribute value is not in table 

RO 

9* 
We found the attribute in the table 
2*: MOV (R3),R0 



CLR 
SEC 
BR 



i Return no flag mask 

i Signal failure on return 



MOV 
CLC 

Fini shed 



i Get the flag mask 

; Signal success on return 



9*: 



MOV 
RETURN 



(SP)+, R3 



Table to relate ANSI attribute values with flag masks 



ASATAT: . WORD 
. WORD 



4. , AW*INS 
O 



i Insert mode 



Table to relate DEC attribue values with flag masks 



DECTAT: 


. WORD 


1 . , AW*ACK 




. WORD 


3. , AW* 132 




. WORD 


5. . AW*REV 




. WORD 


6. , AW«ORS 




. WORD 


8. , AW*RPT 




. WORD 


25. , AW*VCR 




. WORD 






Application mode for cursor keys 

132 column mode 

Reverse video 

Origin relative to scroll region 

Automatic keypad repeat 

Make cursor visible 

End of table 



i 

4 
I 
C 
( 
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CKTAC — Check for complex mode changes 

. SBTTL CKTAC — Check for complex mode changes 



I 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

■I f^ 

14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26. 
27 
28 
29 
30 
31 



004160 



004160 020427 000006 

004164 001003 

004166 004737 005116' 

004172 000415 



This routine is called each time a terminal attribute changes to see 
if lue must do things other than setting or clearing an attribute flag. 

Inputs: 
R2 = Pointer to window control block 
R4 = Parameter value specified with attribute change command. 

CKTAC : 

If we just changed the origin mode, home the cursor 

; Change origin mode? 

; Br if not 

;Say cursor has moved to home 

If we just changed line width (80/132 mode), clear the screen, 
set scrolling region to full screen, and home the cursor. 



CMP 


R4. #6 


BNE 


1* 


CALL 


SETHCM 


BR 


9* 



004174 020427 000003 

004200 001012 

004202 012762 000001 OOOOOOG 

004210 016262 OOOOOOG OOOOOOG 

004216 004737 005116' 

004222 004737 006216' 



004226 000207 



1*: CMP 
BNE 
MOV 
MOV 
CALL 
CALL 

Finished 

9*: RETURN 



R4. #3 

9* 

#1.DW*SRT<R2) 



; Change line width? 

; Br if not 

; Set top scroll line to 1 
DW*LPP(R2). DW*SRB(R2) i Set bottom scroll line to end of page 
SETHOM j Set cursor to home position 

ERSPAG i Erase the entire page 
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TCAKM -- Select application keypad mode 



. SBTTL TCAKM — Select application keypad mode 

Select application keypad mode 

Inputs: 
R2 = Pointer to window control block 



1 

J. 

2 
3 
4 
5 
6 
7 

8 004230 052762 OOOOOOG 0000000 TCAKM: BIS #AW$AKM. DW*AW<R2) i Say we are in application keypad mode 

9 004236 000207 RETURN 
10 

11 .SBTTL TCNKM — Select numeric keypad mode 

12 

t^CAtrub nufflBr^t. K^ijpdU WXJUK 



1 o 

14 
15 
16 
17 

18 004240 042762 OOOOOOG OOOOOOG TCNKM: BIC #AW*AKM, DW*AW<R2> ; Reset application keypad mode 

19 004246 000207 RETURN 



Inputs: 
R2 = Pointer to window control block 
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-- Set 1 


ine attr 


ibutes 


1 
2 








3 








4 








5 








6 








7 








8 








9 








iO 


004250 


004737 


006620 ' 


11 


004254 


042700 


OOOOOOG 


12 


004260 


052700 


OOOOOOG 


13 


004264 


004737 


006530 ' 


14 


004270 


000207 




15 








16 








17 








IS 


004272 


004737 


006620 ' 


19 


004276 


042700 


OOOOOOG 


20 


004302 


052700 


OOOOOOG 


21 


004306 


004737 


006530 ' 


22 


004312 


000207 




23 








34 








25 








26 


004314 


004737 


006620 ' 


27 


004320 


042700 


OOOOOOG 


28 


004324 


004737 


006530 ' 


29 


004330 


000207 




30 








31 








32 








33 


004332 


004737 


006620 ' 


34 


004336 


052700 


OOOOOOG 


35 


004342 


004737 


006530 ' 


36 


004346 


000207 
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. SBTTL TCN3 — Set line attributes 

Set attributes for the current line. 

Inputs: 
R2 = Pointer to tuindoiu control block 

Line is top half of double-high line 

TCN3: 



CALL 


GETLAB 


BIC 


#AL*DHB, RO 


BIS 


#AL*DHT> RO 


CALL 


3ETLAB 


RETURN 





Get current line attribute flags 
Clear double-high-bottom flag 
Set double-high-top flag 
Store neui attribute flags for line 



Line is bottom half of double-high line 
TCN4; 



CALL 


GETLAB 


BIC 


#AL*DHT, RO 


BIS 


#AL«DHB» RO 


CALL 


SETLAB 


RETURN 





Line is single ujidth 

TCN5: CALL GETLAB 

BIC #AL*DWD>RO 

CALL SETLAB 
RETURN 



; Line is dou 


ble width 


* 

TCN6: CALL 


GETLAB 


BIS 


#AL*DWD, RO 


CALL 


SETLAB 


RETURN 





i Get current line attribute flags 

jClear double-high-top flag 

i Set double-high-bottom flag 

» Store neui attribute flags for line 



Get current line attribute flags 

Clear double-wide attribute 

Store new attribute flags for line 



Get current line attribute flags 

Set double-wide flag 

Store new attribute flags for line 
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— Set character attributes 

. 3BTTL TCSCA — Set character attributes 

Specify attributes for characters that follow 

Inputs: 
R2 = Pointer to window control block 
R5 = Pointer to start of parameter values 

TCSCA: MOV R3, -<SP) 

If no parameters were specified* reset all character attributes 



004350 010346 



004352 121527 000155 

004356 001004 

004360 142762 OOOOOOC OOOOOOG 

004366 000422 



004370 004737 002116' 
004374 103417 



004376 012703 004440' 

004402 120023 

004404 001406 

004406 062703 000002 

004412 020327 004473' 

004416 103771 

004420 000763 



004422 152362 OOOOOOG 
004426 142362 OOOOOOG 
004432 000756 



004434 012603 
004436 000207 



CMPB <R5),#'.Ti ;Any attributes specified? 

BNE 1* iBrifyes 

BICB #<AC*BLD!AC*BLK!AC*REV!AC*ULN>,DW*CCA(R2); CI ear all attributes 

BR 9* i Finished 

Begin loop to accrue and process each parameter 



1*: 



CALL 
BCS 



CSPARM 
9* 



i Accrue next parameter value 
; Br if no more parameter values 



2*: 



Look up parameter value to determine which attribute flags 
are to be set and reset. 



Point to attribute table 

Search for parameter value in table 

Br if found it 

Skip over flag bytes 

Reached end of table? 

Keep looking if not 

Cannot find this parameter value 



MOV 


#CATABL, R3 


CMPB 


ROi (R3) + 


BEQ 


3« 


ADD 


#2, R3 


CMP 


R3, #CATEND 


BLO 


2* 


BR 


1$ 



Found parameter value in table. 
Set and reset some flaos 



3*: BISB 
BICB 
BR 

Finished 

9*: MOV 

RETURN 



<R3)+, DW*CCA<R2)i Set some attributes 

<R3)+, DW*CCA<R2)i Reset some attributes 

1* iProcess anq other attributes 



<SP)+, R3 
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TCSCA — Set character attributes 



1 

2 

3 

4 

5 

6 

7 

a 004440 

9 004443 

10 004446 

11 004451 

12 004454 

13 004457 

14 004462 

15 004465 

16 004470 

17 004473 
18 



Table to convert attribute parameter values into flags to be 
set and reset. 

Each entry has three values: <1) numeric parameter value that 
occurs in control sequence; (2) flags to be set; <3) flags to 
be reset. 



000 
001 
004 
005 
007 

(£0 

030 
031 
033 



000 


oooc 


CATABL: 


. BYTE 


oooe 


000 




. BYTE 


0000 


000 




. BYTE 


0000 


000 




. BYTE 


OOOG 


000 




. BYTE 


000 


OOOG 




. BYTE 


000 


OOOG 




. BYTE 


000 


OOOG 




. BYTE 


000 


OOOG 


CATEND: 


. BYTE 



EVEN 



0. , 0, AC*BLD ! AC*BLK ! AC*REV ! AC«ULN 
1. , AC*BLD, O 

4. , AC*ULN, 

5. . AC«BLK, O 
7. . AC*REV, 
titi.. t u» Au»Bi_u 

24. . 0, AC*ULN 

25. , 0, AC*BLK 
27. , 0, AC«REV 



i 
I 
f 

f 
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# 
I 
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I 
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I 
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TClOO — Select VT100/VT200 mode 

Set terminal to VTIOO or VT200 mode of operation 



1 
2 
3 
4 
5 
6 
7 

e 

9 
10 
11 
12 

14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 



Inputs: 
R2 = Pointer to window control block 
R5 == Pointer to parameter values 



004474 



TClOO: 



Say terminal is not in VT52 mode and not in VT200 mode 
(i.e., set to VTIOO mode) 



004474 042762 OOOOOOC OOOOOOG 



BIG 



#<AW*52!AW*S52iAW*200>, DW*AW<R2) J Terminal is in VTIOO mode 



004502 116200 OOOOOOG 
004506 116000 OOOOOOG 
004512 042760 OOOOOOG OOOOOOG 



004520 116200 OOOOOOG 

004524 032760 OOOOOOC OOOOOOG 

004532 001005 



004534 004737 002116' 
004540 020027 000076 
004544 001003 



Reset VT52 emulation-mode flag in entry for primary line so that 
other windows connected to this terminal will know. 

MOVB DWf J0B<R2), RO J Get our line index number 

liOVB LNPRIIi(RO)> RO ; Get number of primary line 

BIC #*V52EM/ LSWll (RO) i Say terminal not emulating a VT52 

If job's terminal type is VT200> set that mode 

liOVB DW*J0B(R2), RO ; Get job index number 

BIT #<VT2007i VT2008>, LTRMTP(RO)i Is terminal a VT200? 

BNE 1* J Br if yes 

Get 1st parameter value and see if we should go to VT200 mode 

i Accrue 1st parameter value 
i VT200 mode? 
j Br if not 



CALL 


CSPARM 


CMP 


RO, #62 


BNE 


9« 



Set terminal type to VT200 
004546 052762 OOOOOOG OOOOOOG 1*: BIS #AW*200, DW*AW<R2) i Set VT200 mode 

Finished 
004554 000207 9*: RETURN 



i 
I 
f 



I 
I 
( 
I 
t 

c 
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4 
< 
I 
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i 
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f 
f 

i 
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TSWIN - 
TCREST 



TSX-Plus Display Windo 
- Terminal reset 



1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 



004556 010146 



004560 
004566 
004572 
004576 



004604 
004612 



042762 
1 16201 
116100 
042760 



012762 
016262 



OOOOOOG 
000000& 
OOOOOOG 
OOOOOOG 



000001 
OOOOOOG 
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. SBTTL TCREST — Terminal reset 

Perform a terminal reset operation 

Inputs: 
R2 = Pointer to ujindouj control block 

TCREST: MOV R1,-(SP) 

Turn off VT52 emulation mode 

BIC #AW*S52* DW*AW<R2)i Turn off attribute for window 

MOvB DW*JOB <R2) > Hi *Get our job index number 

MOVE LNPRIM(R1),R0 i Get primary line number 

BIC #*V52EM, LSWIKRO) i Say terminal is not in VT52 mode 



OOOOOOG 



OOOOOOG 



OOOOOOG 
OOOOOOG 



004620 042762 OOOOOOC OOOOOOG 



004626 004737 005116 



004632 004737 006216 



004636 
004644 
004646 
004654 
004662 



004670 
004672 



032761 
001411 
112762 
112762 
1 1 2762 



012601 
000207 



OOOOOOC OOOOOOG 



000001 
000001 
000002 



OOOOOOG 
OOOOOOG 
OOOOOOG 



Reset scrolling region 

MOV #1,DW*SRT(R2) i Set top scroll line to 1 

MOV DW*LPP<R2), DW*SRB(R2) J Set bottom scroll line to end of page 

Reset misc window status flags 

BIC #<AWS132 ! AUXINS ! AU$ACK I Aw^ORS i AW$AKM ! AW$5S : AW$PRT>, DW«AW<R2) 
Say cursor is at home 

CALL SETHOM i Set cursor to home position 

Erase the entire page 

CALL ERSPAG j Erase the entire page 

Reset character set mapping for a VT200 



BIT 

BEG 

MOVB 

MOVB 

MOVB 

Finished 



9«: 



MOV 
RETURN 



#<VT2007!VT2008>, LTRMTP<R1) >Is this a VT200? 
9* j Br if not 

#1, DW*G2M<R2) J Map G2 to DEC supplemental chars 
#1, DW*G3M(R2) iMap G3 to DEC supplemental chars 
#2, DW*GRM<R2) iMap GR to G2 



<SP)+, Rl 



i 

i 
f 
C 
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TCPRT — Printer control operation 

. SBTTL TCPRT — Printer control operation 

Direct output to printer or back to terminal. 



004674 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 
•i n 

14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 004732 00020/ 



Inputs: 
R2 = Pointer to uiindow control block 
R5 = Pointer to start of parameter value 



TCPRT: 



Get first parameter value and see if we should direct output to printer 
or to terminal. 



004674 004737 002116' 

004700 020027 000005 

004704 001004 

004706 052762 OOOOOOG 0000000 

004714 000406 

004716 020027 000004 

004722 001003 

004724 042762 OOOOOOG OOOOOOG 



1*: 



CALL 

CMP 

BNE 

BIS 

BR 

CMP 

BNE 

BIC 



Finished 
9*: RETURN 



CSPARM iGet first parameter value 

RO. #5 J Direct output to printer? 

1* ; Br if not 

#AW*PRT> DW*AW<R2)i Direct output to printer 

9* 

ROj #4 i Direct output to terminal? 

9* i Br if not 

#AW*PRT. DW*AW(R2)i Direct output to terminal 



( 

4 
i 
< 
i 

f 

i 
i 

< 
t 

4 

I 
C 

I 



I 
( 
( 

I 
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— Erase within a line 



f 
I 



3 

4 

5 

6 

7 

B 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 



004734 



004734 004737 002116" 

004740 005700 

004742 001003 

004744 004737 005640 ' 

004750 000413 

004752 020027 000001 

004756 001003 

004760 004737 005752 ' 

004764 000405 

004766 020027 000002 

004772 001002 

004774 004737 005554 '■ 



005000 000207 



trase within a line 



. SBTTL TCLERS 

Erase within a line. 

Inputs: 
R2 = Pointer to uindow control block 
R5 = Pointer to start of parameter value 

TCLERS: 

i 

i Accrue parameter value to determine what type of erase this is 
> 

j Accrue parameter value 

} Parameter = 0? 

; Br if not 

i Erase from cursor to end of line 

i Parameter = 1? 

i Br if not 

j Erase from beginning of line to cursor 

j Parameter = 27' 

; Br if not 

; Erase entire line 





CALL 


CSPARn 




TST 


RO 




BNE 


1* 




CALL 


ERSCTL 




BR 


9* 


1*: 


CMP 


RO, #1 




BNE 


2* 




CALL 


ERSLTC 




BR 


9* 


2*: 


CMP 


RO, #2 




BNE 


9* 




CALL 


ERSLIN 


i 


Finished 




9*: 


RETURN 





I 
i 
« 

f 

c 

c 
i 
i 
f 
i 
I 
( 
i 
< 
( 
I 
i 



i 

i 



TSWIN ■ 
TCPERS 



i 
2 
3 
4 
5 
6 
7 

e 

9 
10 

11 

12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 

28 



005002 004737 

005006 005700 

005010 001003 

005012 004737 006036' 

005016 000413 

005020 020027 000001 

005024 001003 

005026 004737 006120' 

005032 000405 

005034 020027 000002 

005040 001002 

005042 004737 006216' 



005046 000207 
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- Erase within a page 

. SBTTL TCPERS — Erase within a page 

Erase characters within the current page. 

Inputs: 
R2 = Pointer to window control block 
R5 = Pointer to start of parameter value 

TCPERS: 

Accrue parameter value and determine how much to erase 

; Accrue parameter 

i Parameter = 0? 

; Br if not 

* Erase from cursor to end of page 



1*: 



2*: 



CALL 


CSPARM 


TST 


RO 


BNE 


1* 


CALL 


ERSCTP 


BR 


9* 


CMP 


RO, #1 


BNE 


2$ 


CALL 


ERSPTC 


BR 


9* 


CMP 


RO, #2 


BNE 


9* 


CALL 


ERSPAS 



i Finished 
9*: RETURN 



i Parameter = 1? 

; Br if not 

J Erase from beginning of page to cursor 

i Parameter = 27 

J Br if not 

i Erase entire page 



c 

€ 

f 
< 

« 
( 
f 
€ 
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€ 
I 



( 
i 
i 
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TSWIN -- 


- TSX-Pl 


us Displ 


ay Windo 


TCSSR ■ 

1 


— Set scrolling 


reg ion 


0. 

2 
3 








4 








5 








6 








7 








8 








9 


005050 






10 








11 








12 








13 


005050 


004737 


002116' 


14 


005054 


005700 




15 


005056 


001002 




16 


005060 


012700 


000001 


17 


005064 


010062 


OOOOOOG 


18 








19 








20 








21 


005070 


004737 


002116' 


22 


005074 


005700 




23 


005076 


001002 




24 


005100 


016200 


OOOOOOG 


25 


005104 


010062 


OOOOOOG 


26 








27 








28 








29 


005110 


004737 


005116' 


30 








31 








32 








33 


005114 


000207 
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. SB7TL TCSSR — Set scrolling region 

Set the scrolling region. 

Inputs: 
R2 = Pointer to uindou) control block 
R5 = Pointer to parameter values 

TCSSR: 

Accrue scrolling region top value 



1*; 



TST RO 

BNE 1* 

MOV #1,R0 

MOV RO, DW*SRT(R2) 



jAcci'ue sci-olliiig i-egiun top line 

j Was top line number specified? 

i Br if yes 

; Set 1 as top 1 ine 

iSet top line of scrolling region 



Accrue scrolling region bottom value 

CALL CSPARM i Accrue scrolling region bottom line 

TST RO j Was bottom line specified? 

BNE 2* j Br if yes 

MOV DW*LPP<R2)>R0 i Set last line as bottom of region 

:*: MOV RO, DW*SRB iR2) ; Set bottom line of scrolling region 

Set the cursor to the home position 

CALL SETHOM i Set cursor to home position 
Finished 

RETURN 
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-- Set cursor to the home position 



SB- 



SETHOM 



Set cursor to the home position 



This routine is called to set the current cursor position to 
home. The home line depends on whether absolute or relative 
origin has been selected. 

Inputs: 
R2 = Pointer to uiindoui control block. 



005116 



SETHOM: 



Set the cursor line number. 



005116 032762 0000000 OOOOOOG 

005124 001403 

005126 016200 OOOOOOG 

005132 000402 

005134 012700 000001 1*: 

005140 004737 006710' 2*: 



005144 012762 000001 OOOOOOG 



#AW*ORS. DW*AW<R2)j Is origin relative to scroll region? 

/Br if not 
i Say cursor is at top of scroll reg 

; Say cursor is at line 1 
i Set the line number 



Say cursor is at column i 



005152 000207 



BIT 


#AW$ORS/ DW^AW 


BEQ 


1* 


MOV 


DW*SRT(R2),R0 


BR 


2* 


MOV 


#1,R0 


CALL 


SETLIN 


Set column t 


o 1 


MOV 


#1> DM$C0L<H2) 


Finished 




RETURN 





f 
I 
f 
I 

i 

i 

f 

€ 
i 
i 
i 
i 
I 

€ 

I 



t 
( 



TSWIN — 
SCRLUP - 

1 
S 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
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- Scroll screen up one line 

. SB7TL SCRLUP — Scroll screen up one line 

Scroll the screen up one line. 

Inputs: 
R2 = Pointer to window control block. 



005154 010346 
005156 010446 
005160 010546 



005162 012700 000001 
005166 004737 005422 



SCRLUP: MOV 
MOV 
MOV 



R3/-(SP) 
R4, -(SP) 
R5, -<SP) 



See if we are allowed to scroll any more lines 



MOV 
CALL 



#1,R0 
SCRCHK 



; We are scrolling up one line 
; See if scrolling allowed 



005172 026227 0000000 000001 

005200 001013 

005202 026262 OOOOOOG OOOOOOG 

005210 001007 



005212 005362 OOOOOOG 

005216 003016 

005220 016262 OOOOOOG OOOOOOG 

005226 000412 



If the scrolling region is the entire screen* we can do the scrolling 
by simply changing the number of the top line. 

CMP DW*SRT<R2), #1 ; Top line of scrolling region = IT' 

BNE 2* ;Br if not 

CMP DW*SRB(R2>> DW*LPP(R2)i Scrolling region go to bottom of page? 

BNE 2* ; Br if not 

Scrolling region covers the entire page 

DEC DW*TLN<R2) i Change top line number 

BGT 1* ; Br if did not just scroll line 1 

MOV DW«LPP<R2), DW*TLN(R2); Cycle to last line on page 

BR 1* 

The scrolling region does not cover the entire page. 
Move characters from line to line to do the scrolling. 



005230 016203 OOOOOOG 

005234 010305 

005236 005203 

005240 010304 

005242 004737 006354 ' 

005246 020362 OOOOOOG 

005252 103770 



005254 016200 OOOOOOG 
005260 004737 006240 ' 



005264 012605 

005266 012604 

005270 012603 

005272 000207 



2*: 
3*: 



MOV 


DW*SRT(R2),R3 


MOV 


R3, R5 


INC 


R3 


MOV 


R3, R4 


CALL 


CPYLIN 


CMP 


R3iDW*SRB<R2) 


BLO 


3* 



i Get top line # of scrolling region 
i Set number of line to copy to 

iSet number of line to copy from 

iCopy characters from one line to another 

i Have we copied all that is needed? 

; Loop if not 



Clear the line at the bottom of the scrolling region 



1*: 



MOV 


DW*SRB<R2), RO 


CALL 


CLRLIN 


Finished 




MOV 


<SP)+, R5 


MOV 


(SP)+, R4 


MOV 


(SP)+, R3 


RETURN 





i Get # of line at bottom of scrolling regn 
i Clear that 1 ine 
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TSWIN — 


- TSX-Pl 


us Displ 


ay Windo 


MACRO VO 


5. ( 


SCRLDN - 


— Scroll screen 


down one line 


1 
2 










- «». 


3 












4 












5 












6 












7 












8 


005274 


010346 




SCF 


9 


005276 


010446 






10 


005300 


010546 






11 












12 












13 












14 


005302 


012700 


177777 




15 


005306 


004737 


005422 ' 




16 












17 












IS 












19 












20 


005312 


026227 


OOOOOOG 


000001 


21 


005320 


001016 






22 


005322 


026262 


OOOOOOG 


OOOOOOG 


23 


005330 


001012 






24 










25 










26 










27 


005332 


005262 


OOOOOOG 




28 


005336 


026262 


OOOOOOG 


OOOOOOG 


29 


005344 


101416 






30 


005346 


012762 


000001 


OOOOOOG 


31 


005354 


000412 






32 












33 












34 












35 












36 


005356 


016203 


OOOOOOG 


2*: 


37 


005362 


010305 




3*: 


38 


005364 


005303 






39 


005366 


010304 






40 


005370 


004737 


006354 ' 




41 


005374 


020362 


OOOOOOG 




42 


005400 


101370 






43 












44 












45 












46 


005402 


016200 


OOOOOOG 


1$: 


47 


005406 


004737 


006240 ' 




48 








, 




49 








■ 




50 








t 




51 


005412 


012605 






52 


005414 


012604 






53 


005416 


012603 






54 


005420 


000207 









i 



. SBTTL SCRLDN — Scroll screen douin one line 

Scroll the screen down one line. 

Inputs: 
R2 = Pointer to window control block. 



SCRLDN: 


MOV 


R3, -<SP) 




MOV 


R4, -(SP> 




MOV 


R5, -<SP) 


i 

* See 


if we 


are allowed 


> 


MOV 


#-l,RO 




CALL 


SCRCHK 



i Say we are scrolling down one line 
; See if we are allowed to scroll more 

If the scrolling region is the entire screen, we can do the scrolling 
by simply changing the number of the top line. 

CMP DW*SRT(R2),#1 J Top line of scrolling region = 1? 

BNE 2* ;Br if not 

CMP DW*SRB<R2)>DW*LPP<R2); Scrolling region go to bottom of page? 

BNE 2* ;Br if not 

Scrolling region covers the entire page 

INC DW*TLN(R2> .i Change top line number 

CMP DW*TLN<R2),DW*LPP<R2)i Did we just scroll last line? 

BLOS 1* i Br if not 

MOV #1, DW*TLN<R2> ; Cycle back to line 1 

BR 1* 

The scrolling region does not cover the entire page. 
Move characters from line to line to do the scrolling. 

i Get bottom line # of scrolling region 
i Set number of line to copy to 

» Set number of line to copy from 

> Copy characters from one line to another 

i Have we copied all that is needed? 

} Loop if not 

Clear the line at the top of the scrolling region 



MOV 


DM«SRB(R2).R3 


MOV 


R3. R5 


DEC 


R3 


MOV 


R3, R4 


CALL 


CPYLIN 


CMP 


R3, DW«SRT<R2) 


BHI 


3* 



MOV 
CALL 

Finished 

MOV 
MOV 
MOV 
RETURN 



DW*SRT(R2)>R0 
CLRLIN 



(SP)+, R5 
<SP)+, R4 
<SP)+, R3 



i Get # of line at top of scrolling regn 
i Clear that line 
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— Check for scrolling limits 

. SBTTL SCRCHK — Check for scrolling limits 



005422 010146 



005424 032762 OOOOOOG 0000000 

005432 001426 

005434 116201 OOOOOOG 

005440 032761 OOOOOOG OOOOOOG 

005446 001420 



Determine if we are allowed to scroll the screen any further while the 
job is detached from the terminal- If lue have reached the limit of 
our scrolling, the job is suspended until the terminal is reconnected. 

Inputs: 
RO = +1 if scrolling up, -1 if scrolling down. 
R2 = Pointer to window control block. 

SCRCHK: MOV R1,-<SP) 

See if job is currently attached to terminal 

BIT #AW$DDC, DW*AW<R2); Are we suppressing char display? 

BEQ 9* ; Br if not 

MOVB DW*J0B<R2),R1 i Get number of job 

BIT #*VNOTT, LSW<R1 ) »Is job currently connected to terminal? 

BEQ 9* i Br if yes 

Job is not currently attached to the terminal. 

See if we are allowed to scroll an unlimited number of lines. 



005450 116201 OOOOOOG 
005454 002415 
005456 001412 



005460 116201 OOOOOOG 

005464 060001 

005466 110162 OOOOOOG 

005472 002001 

005474 005401 

005476 120162 OOOOOOG 

005502 101402 



005504 004737 005514' 



005510 012601 
005512 000207 



MOVB 

BLT 

BEQ 



DW$MSL<R2>,Ri 

9* 

2* 



;Are we allowed to scroll unlimited # lines? 

; Br if yes 

i Br if no scrolling is allowed 



See if this scroll would exceed limit. 



1*: 



MOVB 


DW*NSL<R2),R1 


ADD 


RO, Rl 


MOVB 


R1,DW*NSL(R2) 


BGE 


1* 


NEG 


Rl 


CMPB 


R1,DW*MSL<R2) 


BLOS 


9* 



; Get # lines scrolled so far 

;Add number scrolled this time 

i Save new total 

i Br if total is positive 

; Get positive line count 

iWould this exceed max allowed scroll? 

; Br if not 



Suspend job until job reattaches to the terminal 

2*: CALL WINSPN /Suspend job 

Finished 

9*: MOV <SP)+, Rl 
RETURN 



c 
t 
f 

i 
I 

I 
c 
t 

f 
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I 

i 
i 
i 

f 



t 



TSWIN - 
WINSPN 
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- Suspend job until it reattaches to terminal 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 



005514 010146 



005516 105737 0000000 
005522 001012 



005524 116201 OOOOOOG 

005530 032761 OOOOOOG OOOOOOG 

005536 001404 



005540 

005546 000766 



005550 012601 
005552 000207 



. SBTTL WINSPN — Suspend job until it reattaches to terminal 

Suspend the execution of a job until it reattaches to a terminal. 

Inputs: 
R2 = Pointer to window control block 

WINSPN: MOV R1,-<SP) 

i Never suspend if we are running at fork level (doing character echoing) 



TSTB 
BNE 



FRKPRI 
9* 



; Are we running at fork level? 
i Br if yes 



See if job has reattached to the terminal 



1*: 



MOVE 

BIT 

BEQ 



DW*J0B(R2)* Rl iGet job index number 
#*VN0TT» LSW<R1) ils job attached to terminal? 



9*: 



9* 

Suspend the job 

OCALL PCSPND 
BR 1$ 

Finished 

MOV <SP)+, Rl 
RETURN 



j Br if yes 



i Suspend execution of the job 

J Wait till job reconnects to terminal 



t 
I 



i 

i 

I 
< 
( 
< 

t 
t 



i 
i 
f 



I 
c 



TSWIN - 
ERSLIN 



I 
I 

i C 

I 
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I 

If 

i 

i 
i 

I. 

, < 
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■ Erase the current line 

. SBTTL ERSLIN — Erase the current line 



3 

4 

5 

6 

7 

S 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 



005554 010346 



KJWO^OO UAOciWO v/wwuuv> 

005562 016200 OOOOOOG 

005566 

005610 112723 000040 

005614 105023 

005616 

005632 077023 



005634 012603 
005636 000207 



Erase the current line. Do not change the line attributes and leave 
the cursor where it is. 

Inputs: 
R2 = Pointer to window control block 

ERSLIN: MOV R3, -<SP) 

Store blanks with all attributes cleared into all line columns 

» Get pointer to 1st char in line 
i Get number of columns per line 
1*: BUFMAP ; ; ; Map to display buffer 

i j ; Store blank as the character 
>;;Clear all attribute flags 
i Restore mapping 
/Clear entire line 



MOv 


DW$LPT(R2),R3 


MOV 


DW*CPL<R2},R0 


BUFMAP 




MOVE 


#40, <R3)+ 


CLRB 


<R3) + 


UNMAP 




SOB 


RO, 1* 


Finished 




MOV 


(SP>+, R3 


RETURN 





c 
c 

r 
I 

C 
< 

c 
i 
f 

c 
i 
I 
t 

€ 



I 



TSWIN -- 


- TSX-Pl 


us Displ 


ay Windo 


ERSCTL - 


— Erase 


from cursor to 


i 
2 








3 








4 








5 








6 








7 








8 








9 








10 


005640 


010346 




11 


005642 


010446 




12 








13 








14 








15 


005644 


016203 


ooooooe 


16 


005650 


005303 




17 


005652 


006303 




18 


005654 


066203 


OOOOOOG 


19 


005660 


016204 


OOOOOOG 


20 


005664 


005304 




21 


005666 


006304 




22 


005670 


066204 


OOOOOOG 


23 








24 








25 








26 


005674 






27 


005716 


112723 


000040 


28 


005722 


105023 




29 


005724 






30 


005740 


020304 




31 


005742 


101754 




32 








33 








34 








35 


005744 


012604 




36 


005746 


012603 




37 


005750 


000207 
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the end of the line 



SBTTL ERSCTL 



Erase from cursor to the end of the line 



Erase all characters from the cursor position to the end of the line. 
The cursor does not move. Character attributes are reset for all 
erased characters. 

Inputs: 
R2 = Pointer to window control block 



ERSCTL: MOV 
MOV 



R3, -<SP) 
R4, -(SP> 



/n - A. — 



, -k. , 



^^_^ -,-«,,4 4.. 



\7t? if pulMiffi?T' ^O CUT'T'en't CUrSuj' pOSXt^ICtt cinu uC cHu uf linS 



MOV DW*C0L(R2), R3 

DEC R3 

ASL R3 

ADD DW*LPT(R2), R3 

MOV DW*CPL<R2),R4 

DEC R4 

ASL R4 

ADD DW*LPT<R2),R4 

Clear the line to blanks 



1*: 



BUFMAP 




MOVE 


#40/ <R3)+ 


CLRB 


<R3) + 


UNMAP 




CMP 


R3, R4 


BLOS 


1* 


Finished 




MOV 


(SP)+, R4 


MOV 


(SP)+,R3 


RETURN 





Get current column number 

Convert to column offset 

Two bytes are used by each column 

Point to byte for current column 

Get number of columns per line 

Convert to offset 

Two bytes per column 

Get pointer to byte for last column 



i i Map to display buffer 
.i i Store blank as character 
;; Clear attribute flags 
Restore mapping 
Finished line? 
Loop if not 
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I 

C 

c 
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- Erase from beginning of line to cursor 



005752 010346 



00d754 016203 OOOOOOG 
005760 016200 0000000 



005764 

006006 112723 000040 

006012 105023 

006014 

006030 077023 



006032 012603 
006034 000207 



. SBTTL ERSLTC — Erase from beginning of line to cursor 

Erase from the beginning of the line up to and including the character 
pointed to by the cursor. The cursor does not move. 

Inputs: 
R2 == Pointer to uiindou control block. 

ERSLTC: MOV R3, -<SP) 

Set up pointer to start of line and to cursor position 



MOV DW*LPT<R2)/ R3 
MOV DW*C0L(R2),R0 

Blank the characters 



1*: 



BUFMAP 




MOVE 


#40, <R3)+ 


CLRB 


<R3) + 


UNMAP 




SOB 


RO, 1* 


Finished 




MOV 


(SP)+, R3 


RETURN 





i Get pointer to 1st byte for the line 
j Get current cursor column 



j Map to display buffer 

; Store blank as the character 

; Clear attribute flags 

{Restore mapping 

i Loop if more characters to clear 



i i 



i 
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1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 



006036 010546 

006040 016246 OOOOOOG 



006044 016205 OOOOOOG 



006050 026227 OOOOOOG 000001 
006056 001403 



006060 004737 005640 ' 
006064 005205 



006066 020562 OOOOOOG 

006072 101005 

006074 010500 

006076 004737 006240 ' 

006102 005205 

006104 000770 



006106 012600 

006 1 1 004737 0067 1 ' 

006114 012605 

006116 000207 



3BTTL ERSCTP 



Erase fro»n tursor tu the end of the page 



Erase from the current cursor position to the end of the page. 
The cursor does not move. Line attributes for completely erased 
lines are reset. 



Inputs: 
R2 = Pointer to window control block 



ERSCTP: MOV 
MOV 



R5, -(SP) 

DW*LIN<R2), ~<SP); Save the current line number 



Inivialize the line uufuber to the current Ixne 

MOV DW*LIN<R2). R5 i Get current line number 
Determine if uje are clearing all of the current line 



CMP DW«C0L(R2),#1 
BEQ 1* 



i Is cursor at column 1 of current line? 
J Br if yes — Clear all of current line 



Clear from cursor to end of current line 



CALL 
INC 



ERSCTL 

R5 



j Erase to end of current line 
i Advance line number 



Now clear all lines below current line 



1*: 



9*: 



CMP 


R5, DW*LPP<R2) 


BHI 


9* 


MOV 


R5, RO 


CALL 


CLRLIN 


INC 


R5 


BR 


1« 


Finished 




MOV 


<SP)+, RO 


CALL 


SETLIN 


MOV 


<SP)+, R5 


RETURN 





Have we erased all linesT' 

Br if yes 

Get number of line to be cleared 

Clear the line 

Increment line number 

See if there are more to clear 



(Recover original line number 
; Restore line number 






TSWIN ■ 
ERSPTC 
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— Erase from beginning of page to cursor 



1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 



. 3BTTL ERSPTC 



trase from beginning of page to cursor 



Erase all of the characters from the beginning of the page up to and 
including the character under the cursor. Line attributes are cleared 
for lines that are completely erased. 



Inputs: 
R2 = Pointer to uindouj control block 



006120 010446 
006122 010546 



ERSPTC: MOV 
MOV 



R4,-(SP) 
R5, -(SP) 



006124 
006130 



006134 
006136 
006140 
006142 
006146 
006150 



006152 
006154 
006162 
006164 
006170 
006172 
006176 



006202 
006204 
006210 
006212 
006214 



016205 
012704 



020405 
103005 
010400 
004737 
005204 
000771 



010400 
026262 
001003 
004737 
000404 
004737 
004737 



010500 
004737 
012605 
012604 
000207 



OOOOOOG 
000001 



iniT^iaxize line numoers 

MOV DW*LIN<R2),R5 
MOV #1,R4 



j Get number of current line 
j Get number of first line 



006240 



CMP 


R4,R5 


BHIS 


2* 


MOV 


R4, RO 


CALL 


CLRLIN 


INC 


R4 


BR 


1» 



OOOOOOG OOOOOOG 

006240 ' 

006710' 
005752' 



Erase all lines up to» but not including, current line 

1*: CMP R4, R5 j Have we reached current line? 

i Br if yes 

J Get number of line to erase 
; Erase the 1 ine 
; Advance the line number 
i See if more lines to erase 

Erase the line the cursor is on 

2*: MOV R4. RO i Get number of current line 

DW*C0L<R2). DW*CPL(R2); Is cursor at the end of the line? 

iBr if not 
; Clear it 

3*: CALL SETLIN ; Select current line 

; Erase up to cursor 



9*: 



006710' 



MOV 


R4, RO 


CMP 


DW*COL<R 


BNE 


3* 


CALL 


CLRLIN 


BR 


9« 


CALL 


SETLIN 


CALL 


ERSLTC 


Finished 




MOV 


R5, RO 


CALL 


SETLIN 


MOV 


(SP)+, R5 


MOV 


(SP)+, R4 


RETURN 





; Get back current line number 
; Select as current line 
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17 
18 
19 
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006216 010546 



006220 016205 OOOOOOG 

006226 004737 006240 ' 
006232 077504 



006234 012605 
006236 000207 
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— Clear entire page to spaces 

. SBTTL ERSPAG — Clear- entire page to spaces 
; Clear the entire page to spaces 

i 

; Inputs: 

} R2 = Pointer to window control block 

ERSPAG: MOV R5, -(SP) 

i 

; Begin loop to clear all lines 



L*: 



MOV 


DW*LPP<R2),R5 


MOV 


R5, RO 


CALL 


CLRLIN 


SOB 


R5, 1* 


Finished 




MOV 


(SP)+, R5 


RETURN 





i Get last line number 

iClear line to spaces 

i Loop if more lines to clear 



f 



c 

i 

i 
i 
< 
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1 

2 








3 








4 








5 








6 








7 








8 








9 








10 


006240 


010346 




11 


006242 


010446 




12 


006244 


016246 


OOOOOOG 


13 








14 








15 








16 


006250 


004737 


006710' 


17 








18 








19 








20 


006254 


016203 


0000000 


21 


006260 


016204 


0000000 


22 


006264 






23 


006306 


1 1 2723 


000040 


24 


006312 


105023 




25 


006314 






26 


006330 


077423 




27 








28 








29 








30 


006332 


005000 




31 


006334 


004737 


006530 ' 


32 








33 








34 








35 


006340 


012600 




36 


006342 


004737 


006710' 


37 


006346 


012604 




38 


006350 


012603 




39 


006352 


000207 





SBTTL CLRLIN 



Clear a line to spaces 



Clear a line to spaces and set the line attributes to single highj 
sinqle wide. 



Inputs: 
RO = Number of line to be cleared 
R2 = Pointer to window control block 



CLRLIN: MOV 
MOV 
MOV 



R3, -(SP) 
R4, -<SP) 
DW*LIN<R2), -(SP); Save current line number 



Select the line to be cleared 

CALL SETLIN 
Blank the line 



1*: 



MOV 


DW*LPT<R2>,R3 


MOV 


DW*CPL<R2),R4 


BUFMAP 




MOVB 


#40, (R3)+ 


CLRB 


(R3) + 


UNMAP 




SOB 


R4, 1* 



Reset line attributes 



CLR 
CALL 

Finished 

MOV 

CALL 

MOV 

MOV 

RETURN 



RO 
SETLAB 



(SP)+, RO 
SETLIN 
(SP)+, R4 
(SP>+, R3 



jSelect line to be cleared 



Get pointer to start of line 

Get # columns in the line 

i i Map to screen buffer 

;; Store blank character 

; i Clear character attributes 

Restore mapping 

Loop if need to store more blanks 



; Set attribute to O 

i Reset all line attributes 



i Get back original line # 
jReselect original line 
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1 
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3 








4 








5 








6 








7 








8 








9 








10 








11 


006354 


010346 




12 


006356 


010446 




13 


006360 


010546 




14 


006362 


016246 


0000000 


15 








16 








17 








IS 


006366 


010400 




19 


006370 


004737 


006710' 


20 


006374 


004737 


006620 ' 


21 


006400 


010003 




22 


006402 


010500 




23 


006404 


004737 


006710' 


24 


006410 


010300 




25 


006412 


004737 


006530 ' 


26 








27 








28 








29 


006416 


010400 




30 


006420 


004737 


006710' 


31 


006424 


016204 


OOOOOOG 


32 


006430 


010500 




33 


006432 


004737 


006710' 


34 


006436 


016205 


OOOOOOG 


35 








36 








37 








38 


006442 


016200 


OOOOOOG 


39 


006446 






40 


006470 


112425 




41 


006472 


112425 




42 


006474 






43 


006510 


077022 




44 








45 








46 








47 


006512 


012600 




48 


006514 


004737 


006710' 


49 


006520 


012605 




50 


006522 


012604 




51 


006524 


012603 




52 


006526 


000207 





. SBTTL CPYLIN — Copy characters from one line to another 

Copy the characters and attributes from one line to another. 
The line attribute is also copied. 

Inputs: 
R2 = Pointer to window control block 
R4 = Number of line to copy from 
R5 = Number of line to copy to 



CPYLIN: MOV 
MOV 
MOV 
MOV 



R3, -(SP) 
R4, -<SP) 
R5, -(SP) 
DW*LIN<R2) 



■(SP);Save current line number 



Copy the line attribute byte 



MOV 


R4, RO 


CALL 


SETLIN 


CALL 


GETLAB 


MOV 


RO, R3 


MOV 


R5, RO 


CALL 


SETLIN 


MOV 


R3, RO 


CALL 


SETLAB 



Get source line # 

Set up info about that line 

Get line attribute information 

Save line attribute 

Get dest line # 

Set up info about that line 

Get line attribute byte 

Set line attribute byte 



(to RO) 



Get pointers to characters in from and to lines 



MOV 


R4, RO 


;Get 


CALL 


SETLIN 


iSet 


MOV 


DW*LPT(R2),R4 


jGet 


MOV 


R5, RO 


iGet 


CALL 


SETLIN 


i Set 


MOV 


DW*LPT<R2),R5 


;Get 



# of line we are copying from 
up information about the line 
pointer to 1st char in from line 

# of line we ar8 copying to 
up information about the line 

; Get pointer to 1st char in to line 



Begin loop to copy the characters 



1*: 



MOV 


DW*CPL(R2), 


BUFMAP 




MOVE 


(R4)+, (R5) + 


MOVB 


(R4)+, <R5) + 


UNMAP 




SOB 


RO, 1* 


inished 




MOV 


<SP)+, RO 


CALL 


SETLIN 


MOV 


<SP)+, R5 


MOV 


<SP)+, R4 


MOV 


<SP)+, R3 


RETURN 





Get # columns to copy 

i i Map to screen buffer 

i i Copy character 

jiCopy attribute 

Restore mapping 

Loop to copy all chars in the line 



J Get back original line # 
jReselect that line 
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X 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 

26 
27 
28 



006530 010346 



\j\JO%j<Ji^ wj,oe;wwi wwwwwww' 

006536 166203 OOOOOOG 

006542 002002 

006544 066203 OOOOOOG 

006550 062703 OOOOOOG 



006554 

006576 110013 

006600 



006614 012603 
006616 000207 



. SBT7L SETLAB — Set attributes for current line 

SETLAB is called to set the line attribute byte for the current line. 

Inputs: 
RO = Line attribute byte value 
R2 = Pointer to window control block 

SETLAB: MOV R3, -<SP) 

Compute virtual address of byte with attribute for current line 

> Get current line number 
; Get offset from line at top of buffer 
; Br if line greater than 1st line 
; Get offset to line we want 
1$: ADO #VPAR6< R3 i Add virtual base address 



i i Map to screen buffer 

;; Store new attribute for line 

Restore mapping 



MOV 


DW*LIN<R2),R3 


SUB 


DW*TLN<R2),R3 


BGE 


1* 


ADD 


DW*LPP(R2),R3 


ADD 


#VPAR6, R3 


Store the new attribute by 


BUFMAP 




MOVB 


RO, (R3> 


UNMAP 




FiniGhed 




MOV 


<SP)+, R3 


RETURN 
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3 

4 

5 

6 

7 

8 

9 

10 

11 

12 
1 n 

14 
15 
16 
17 
18 
19 
20 



23 
24 
25 
26 
27 
28 
29 
30 



006620 010346 



006622 
006626 
006632 
006634 
006640 



006644 

006666 
006670 



006704 
006706 



016203 
166203 
002002 
066203 
062703 



OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 



111300 



012603 
000207 



. SBTTL GETLAB — Get attributes for current line 

GETLAB is called to get the line attribute byte for the current line. 

Inputs: 
R2 = Pointer to window control block 

Outputs: 
RO = Line attribute byte for current line. 



t 

c 



GETLAB: MOV 



R3, -<SP) 



uCittpwi/S v'lTi,iiaj. audi'cSS Or uy^e uJlbii ai/t/rluUbe rOi' CUi'i'Slit line 



If: 



MOV DW*LIN<R2>,R3 

SUB DW*TLN(R2),R3 

BGE 1* 

ADD DW*LPP<R2),R3 

ADD #VPAR6, R3 



Get the attribute byte 



BUFMAP 

MOVE 

UNMAP 



(R3),R0 



Fini shed 



MOV 
RETURN 



<SP)+, R3 



j Get current line number 

i Get offset from line at top of buffer 

; Br if line greater than 1st line 

; Get offset to line we want 

;Add virtual base address 



.: .: j Map to screen buffer 

i i i Get the line attribute byte 

i Restore mapping 



i 
< 
I 



i 
I 
I 

f 

i 
i 
( 
I 



I. 



TSWIN — 
SETLIN - 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
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- Select a line as current line 

. SBTTL SETLIN — Select a line as current line 



006710 010146 



006712 010062 OOOOOOG 



006716 166200 OOOOOOG 

006722 002002 

006724 066200 OOOOOOG 

006730 010001 

006732 070162 OOOOOOG 

006736 006301 

006740 066201 OOOOOOG 

006744 062701 OOOOOOG 

006750 010162 OOOOOOG 



006754 012601 
006756 000207 



Select a specified line as the current line and set up pointer information 
for it. 

Inputs: 
RO ~ Line number being selected <l-24) 
R2 = Pointer to window control block 

Outputs: 
DW*LIN(R2) = Set to current line number 
DW*LPT(R2) = Virtual address of 1st character on current line 

SETLIN: MOV R1,-(SP) 

Set the current line number in WCD 

MOV RO, DW*LIN(R2> j Set current line number 



i 

i Compute virt 


ual address of 


> 

SUB 


DW*TLN(R2),R0 


BGE 


1* 


ADD 


DW*LPP<R2)>R0 


1*: MOV 


R0>R1 


MUL 


DW*CPL(R2),R1 


ASL 


Rl 


ADD 


DW«LPP<R2),R1 


ADD 


#VPAR6, Rl 


MOV 


R1,DW«LPT<R2) 


> 

t Finished 




i 

MOV 


<SP)+, Rl 


RETURN 





i Get # lines from top to line wanted 

; Br if top line is LE one wanted 

;Add total number of lines per page 

i Get # lines offset to line we want 

} Multiply by number of columns per line 

; Times two because of attribute bytes 

iSkip over bytes with line attributes 

;Add base virtual address 

;This is virtual addr of start of line 



I 
< 

c 
I 

4 
4 
I 
I 

i 
i 
I 
f 

i 

i 
« 

€ 

i 
i 
t 

i 



I' 



c 
t 
c 
f 
I 
i 

( 

( 
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WINSF — Switch from a job with a display window 



3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

14 
15 
16 
17 
18 
19 
20 
21 

DO 



. SB7TL WINSF — Switch from a job with s display window 

WINSF is called from TSTTY when we are switching from a job which 
has an active display window. 

Inputs: 
R2 = Pointer to display window control block for job being switched from 



006760 



WINSF: 



006760 052762 OOOOOOG OOOOOOG 



006766 105062 OOOOOOG 



006772 000207 



Set flag which prevents characters from being passed through to the 
screen. 

BIS #AW*DDC. DW*AW(R2)i Don 't pass through any more chars 
Reset number of lines scrolled since we disconnected from window 

CLRB DW*NSL(R2) i No lines scrolled yet 
Finished 

RETURN 



I 
I 
f 
I 

f 
< 
I 

( 
i 

i 
€ 

€ 

I 
< 
t 
i 
I 



c 
f 
I 



I 

I 

i 
I 
f 
i 
« 
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WINST — Switch to job luith a uiindoui 

. SBTTL WINST — Switch to job with a window 



i 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IB 

19 

20 

21 

22 

23 

24 

25 

26 

28 
29 



006774 010146 



uu£>//e> iie>e:ui uuuuuuw 



007002 052761 OOOOOOG OOOOOOG 



007010 026127 0000000 OOOOOOG 

007016 001002 

007020 004737 OOOOOOG 



WINST is called from TSTTY when we are switching to a job that has 
a display window active. 

Inputs: 
R2 == Pointer to current window control block for job being switched to 

WINST: MOV R1,-(SP) 

Get job index number 

MOVE DW^J0B<R2) f Rl i Get job index number 

Set flag which will cause the window to be redisplayed when the 
job resumes execution. 

BIS #*WDISP> LSW6(Ri )i Set flag saying to redisplay window 

If job is in terminal-output-wait statei restart its execution 

LSTATE(Rl).#S*OTWTi TT-output-wai t state? 

; Br if not 
i Restart execution of job 



007024 012601 
007026 000207 



9*: 



CMP 


LSTATE(R 


BNE 


9* 


CALL 


FORCEX 


Finished 




MOV 


<SP>+,R1 


RETURN 





c 
f 
I 
I 



c 
I 

I 
I 
( 

€ 

4 
€ 

I 

< 
f 
i 
I 
< 



I 

i 
i 



< 



> 



I* 



( 
c 

c 

i 
i 
i 
i 



TSWIN — 
WINDSP - 

4 
X 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 



14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
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SBTTL WINDSP — Redisplay currerit ujindoui for job 



WINDSP is called from the scheduler when it is about ready to 
reenter a job uhose uiindotu needs to be redisplayed. 

Inputs: 
Rl = Current job index number 



007030 010246 



WINDSP: MOV 



R2, -<SP) 



007032 042761 
007040 052761 



OOOOOOG OOOOOOG 
OOOOOOG OOOOOOQ 



007046 016102 OOOOOOG 

007052 001402 

007054 004737 007072 ' 



007060 042761 OOOOOOG OOOOOOG 9*: 
007066 012602 
007070 000207 



Reset flag that says uindou redisplay needed 

and set flag that says a uiindouj refresh is being done. 

BIC #*WDISP* LSW6<R1 )i Window redisplay no longer needed 
BIS #*RFRSH, LSW4<R1.>> Window refresh currently being done 

Redisplay current window for job 

i Get addr of current window control block 
i Br if job is not doing windowing 
{Redisplay window 



MOV 


LWIND0(R1),R2 


BEQ 


9* 


CALL 


REFRSH 


Finished 




BIC 


#*RFRSH. LSW4< 


MOV 


(SP)+, R2 


RETURN 





i 
i 



c 
I 
( 
( 



f 



TSWIN — 
REFRSH - 

i 

2 

3 

4 

5 

6 

7 

S 

9 

10 

11 

12 

14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
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— Refresh screen from windouj contents 



3BTTL REFRSH 



Refresh screen from uiindow contents 



This routine is called to clear the screen and refresh its contents 
from the screen buffer. 



Inputs: 
R2 = Pointer to uindoui control block 



007072 010146 
007074 010546 



REFRSH: MOV 
MOV 



Rl, -<SP) 
R5, -<SP) 



007076 052762 0000000 0000000 



007104 116201 OOOOOOG 

007110 

007116 016161 OOOOOOG OOOOOOG 

007124 016161 OOOOOOG OOOOOOG 

007132 

007140 042761 OOOOOOG OOOOOOG 



007146 004737 011116' 



007152 004737 007620' 



007156 004737 011424' 



007162 005005 



007164 016246 OOOOOOG 

007170 012701 000001 

007174 010100 

007176 004737 006710' 

007202 004737 007310' 

007206 005201 

007210 020162 OOOOOOG 

007214 101767 



007216 012600 

007220 004737 006710' 



Stop characters from being passed from program to screen while me are 
doing the refresh 

BIS #AW*DDC» DW*AW(R2)i Suppress character pass-through 

Clear contents of line's output buffer and reset control-0 flag 

MOVE DW*J0B(R2), Rl iGet job index number 

OISABL i; {Disable interrupts 

MOV L0TSIZ<R1), L0TSPC<R1); ;; Clear contents of line's output buffer 

MOV L0TNXT(R1>, LOTPNKRDj ; i 

ENABL ; Enable interrupts 

BIC #*CTRL0-LSW3<R1)» Reset control-0 fiaq 

See if me need to turn V't 52 emulation mode on or off 

CALL GENTEM i Check VT52 emulation mode status 

Clear the screen 

CALL GENCLR ; Clear the screen 

Set overall window attributes 

CALL GENWAF ; Set overall uiindoui attributes 

Initialize character attribute flags 

CLR R5 ; No character attribute flags 

Begin loop to send each line to the screen 

(SP)iSave current line number 
;Get 1st line number 
1*: MOV RliRO i Get line number 

i Select as current line 
i Send line to screen 
/Increment line number 
; Have uie done all lines? 
i Loop if not 

Reset line number 



MOV 


DW*LIN(R2>> -( 


MOV 


#1>R1 


MOV 


RliRO 


CALL 


SETLIN 


CALL 


SNDLIN 


INC 


Rl 


CMP 


R1>DW*LPP<R2) 


BLOS 


1* 



f 
I 
ff 

I 
I 

< 
f 
< 

i 
c 
I 
( 

( 

f 

c 



MOV 
CALL 



(SP)+/RO ; Get back line where we should be 
SETLIN j Set this as the current line 



c 



TSWIN -- 
REFRSH - 

58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 

S3 
84 
85 
86 
87 
88 
89 
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007224 004737 010754' 



007230 004737 012270' 

007234 016200 OOOOOOG 

007240 005300 

007242 116201 OOOOOOG 

007246 110061 OOOOOOG 



007252 120562 OOOOOOG 

007256 001404 

007260 1 1 6200 OOOOOOG 

007264 004737 010130' 



007270 004737 010542' 



007274 042762 OOOOOOG OOOOOOG 



007302 012605 
007304 012601 
007306 000207 



Set up scrolling regiun status 

CALL GENSSS j Set up split screen scrolling 

Place cursor inhere it should be 



; Gen cursor positioning commands 

; Get current column number 

/Make 1st column be 

» Get our job number 

/Tell TSTTY where cursor is 



CALL 


GENCSR 


MOV 


DW«C0L(R2),R0 


DEC 


RO 


MOVE 


DW$J0B<R2),R1 


MOVE 


RO, LCDL<R1) 



Make 



9UI Cr U II CI rd U tr K i' CI Ir b t' J> U U 1/ Cr X V> 3Bb l.. W I I S U W X t^ 



.»« » » u 



CMPB 


R5, DW*CCA<R2) 


BEQ 


2$ 


MOVE 


DW*CCA(R2),R0 


CALL 


GENCAF 



; Is character attribute set correctly? 

i Br if yes 

; Get needed character attribute 

i Set character attribute 

Set up correct character set mapping 
2*; CALL GENMAP ; Set up correct character set mapping 

Noin allow characters to be passed to the screen 

BIC #AW*DDC> DW«AW(R2)i Enable character pass-through 

Finished 
9*: 



MOV 
MOV 
RETURN 



<SP)+, R5 
<SP)+, Rl 



I 
i 

i 
I 
i 
I 
i 
i 
f 
I 
I 

€ 

I 
I 



I 



f 
c 



f 
i 

< 

i 
( 
i 
f 
t 

I 

i 
i 

( 
( 



TSWIN — 
SNDLIN - 

i 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
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26 
27 
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57 
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line of characters to terminal 



. 3ETTL SNDLIN 



3i?nd line of characters to terniinai 



Send a line of characters from the screen buffer to the terminal. 
The currently selected line is the one sent. 

Inputs: 
R2 = Pointer to window control block. 
R5 = Current character attribute flags 

Outputs: 
R5 = Character attribute flags for last character on line 



007312 
007314 
007316 



007322 
007326 
007332 
007340 
007342 
007346 
007352 
007354 
007356 



007362 
007366 
007370 
007374 



007376 
007402 
007406 



007412 
007434 
007436 
007440 
007454 
007460 
007462 
007464 
007466 
007472 



Wi wi4o 

010346 
010446 
016246 OOOOOOG 



004737 006620 ' 

012701 000120 

032762 OOOOOOG OOOOOOG 

001402 

012701 000204 

132700 OOOOOOC 

001401 

006201 

004737 012006' 



020162 OOOOOOG 

101402 

016201 OOOOOOG 

010146 



012701 000001 
010162 OOOOOOG 
016203 OOOOOOG 



SNDLIN: MOV 
MOV 
MOV 
MOV 



R 1 / — ( 3F ) 
R3, -<SP) 
R4, -<SP) 
DW*C0L(R2), 



1«: 



3*: 



(SP)iSave current column number 

Set line attribute flag and determine number of columns to display 

CALL GETLAB ; Get line attribute flags for cur line to RO 

MOV #80. « Rl ; Assume 80 columns to display 

BIT #AW*132, DW*AW<R2)i Are we in 132 column mode? 

BEQ 1* i Br if not in 132 col mode 

MOV #132. >R1 i Say uie need to display 132 columns 

BITB #<AL*DHT!AL*DHB!AL«DWD>, RO ; Double wide line? 

BEQ 3* ; Br if not double wide 

ASR Rl iOnly need to display half as many chars 

CALL GENLAF i Generate line attribute flag info 

Store number of columns to display on top of stack 



5«: 



CMP 


R1,DW*CPL<R2> 


BLOS 


5* 


MOV 


DW*CPL(R2),R1 


MOV 


Rl, -<SP) 



* Are lue storing as many cols as needed? 

i Br if yes 

; Get # columns u»e ars storing 

; Store # columns to display on top of stack 



Begin loop to output the characters on the line 



MOV #1,R1 

MOV Rl, DW*C0L(R2) 

MOV DW*LPT<R2),R3 



ilnit column number 

ilnit col where next character goes 

; Get pointer to 1st char on this line 



4*: 



112304 
112300 

120427 000040 

001005 

120005 

001003 

032700 OOOOOOC 

001420 



Scan over spaces that have no attributes set 

i i Map to screen buffer 
; i Get character 

i i Get attribute flags for character 
Restore mapping 
Is character a space? 
Br if not 

Are attributes changing? 
Br if yes 
#<:AC*BLD!AC*BLK!AC*REV!AC*ULN>, RO iBold, blink, reverse, 

i Br if not 

We found a character that we need to send. 
(R4 = character, RO = attribute flags) 



BUFMAP 




MOVE 


<R3)+, R4 


MOVB 


<R3)+,R0 


UNMAP 




CMPB 


R4, #40 


BNE 


2* 


CMPB 


RO, R5 


BNE 


2* 


BIT 


#<AC*BLD 


BEQ 


8« 



under 



i 
i 
f 

I 
f 
I 

c 
f 
< 
i 
f 
C 
i 

i 
i 
t 

f 

( 
t 
I 



( 

r 
f 

( 
i 
I 
( 



TSWIN — 
SNDLIN - 
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59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 

-rn 

71 
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*03ition to correct column for the chsrscteT. 



007474 020162 0000000 

007500 001404 

007502 010046 

007504 004737 012122' 

007510 012600 



007512 120005 
007514 001402 



22 010400 
007524 004737 012500' 
007530 005262 OOOOOOG 



007534 005201 
007536 020116 
007540 101724 



007542 026262 OOOOOOG OOOOOOG 

007550 001414 

007552 026227 OOOOOOG 000001 

007560 001404 

007562 

007572 



007602 005726 

007604 012662 OOOOOOG 

007610 012604 

007612 012603 

007614 012601 

007616 000207 



2*: 



CMP 


R1,DW*C0L(R2> 


BEQ 


6$ 


MOV 


RO, -<SP) 


CALL 


GENSPC 


MOV 


(SP)+, RO 



; Are ue at correct column noiu? 

i Br if yes 

} Save character attribute flags 

{Generate spaces to move to correct col 

{Restore character attribute flags 



See if lue need to change attributes for this character 



6*: 



CMPB 


RO, R5 


BEQ 


7* 


CALL 


GENCAF 



t wie b I. II a I 

Send the character to the terminal 



i Do we need to change attributes? 
} Br if not 



7*: 



MOV 


R4iR0 


CALL 


GENCHR 


INC 


DW$CDL<R2) 



Advance to next character 



8*: 



INC 


Rl 


CMP 


Rl, <SP) 


BLOS 


4« 



{Get character to send 

> Send the character to the terminal 

{Increment current column number 



{ Increment column number 
{Done all columns?' 
{ Loop if not 



Output carriage-return line-feed at the end of the line 



CMP 

BEQ 

CMP 

BEQ 

SEND 

SEND 



DW*LIN(R2). DW«LPP(R2){ Is this the last line on the page? 



10*: 

Finished 
20*: 



TST 
MOV 
MOV 
MOV 
MOV 
RETURN 



20* 

DW*C0L(R2), #1 

10* 

#CR 

#LF 



<SP) + 



{Br if yes — Don't send CR-LF 

{Are we still at col 1 (entire line blank)? 

{Br if yes 

{Send carriage return 

{ Send 1 ine feed 



{Pop number of columns per line 
<SP)+. DW*C0L(R2){ Restore cursor column number 
(SP)+, R4 
(SP)+, R3 
(SP>+, Rl 






TSWIN -- 
GENCLR - 
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IS 
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29 
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31 
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33 
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007620 



007620 032762 OOOOOOC OOOOOOG 
007626 001115 



. 3BTTL GENCLR — Gen control sequence to clear screen 

Generate the appropriate terminal control sequence to clear the screen. 

Inputs: 
R2 = Pointer to uiindou) control block 

GENCLR : 

See if me need to generate a VTIOO or VT52 sequence 



BIT 
BNE 



#<:AW«52 ! AW*S52>, DW*AW < R2 ) i 77521 



1* 



007630 004737 012456' 
007634 



007644 004737 012456' 

007650 

007660 

007670 



007700 004737 012456' 

007704 

007714 004737 012456' 

007720 



007730 004737 012456' 

007734 

007744 



007754 

007764 004737 012444 

007770 

010000 



010010 032762 OOOOOOG OOOOOOG 

010016 001443 

010020 004737 012444' 

010024 

010034 004737 012444' 

010040 

010050 

010060 000422 



Generate VTIOO sequence 
Reset scrolling region 



CALL 
SEND 



GENCSI 
#'r 



Set absolute origin 



CALL 


GENCSI 


SEND 


#'? 


SEND 


#'6 


SEND 


#'1 



* or It yes* 



; Generate CSI header 

; Reset scrolling region 



i Generate CSI header 
i Send ? 
J Send 6 
; Send 1 



f 



Home cursor and clear to end of screen 



CALL 


GENCSI 


SEND 


#'H 


CALL 


GENCSI 


SEND 


#'J 



Reset character attributes 



CALL 


GENCSI 


SEND 


#'0 


SEND 


#'m 



; Generate CSI header 

; Send H — Home cursor 

i Generate CSI header 

> Send J — Clear to end of screen 



; Send CSI O m to reset char attributes 



Map GL to GO and designate GO as ascii 



SEND 


#17 


CALL 


GENESC 


SEND 


#'( 


SEND 


#'B 



/Send shift-in — Lock shift GO to GL 
; Send escape 
> Select GO 

;Map GO to ascii 

Map GR to G2 and designate G2 as ascii 

BIT #AW*200, DW«AW<R2); Is this a VT200 terminal? 

BEQ 9* iBr if not — Don't have to mess with GR 

CALL GENESC > Send ESC 

SEND #'> iLock shift GR to G2 

CALL GENESC > Send escape 

SEND #'» } Select G2 

SEND #'B i Designate ascii 

BR 9* 



I 



TSWIN -- 


- TSX-Pl 


us Disp] 


Lay Windo 


GENCLR - 


— Oen control sequence 


58 








59 








60 








61 


010062 


004737 


012444' 


62 


010066 






63 


010076 


004737 


012444' 


64 


010102 






65 


010112 


004737 


012444' 


66 


010116 






67 








68 








69 








70 


010126 


000207 
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to clear screen 



Page 69-1 



Generate VT52 sequence 



1*: 



CALL 


GENESC 


SEND 


#'H 


CALL 


GENESC 


SEND 


#'J 


CALL 


GENESC 


SEND 


#'G 


Finished 




RETURN 





i Generate 
;Send H - 
; Generate 
; Send J — 
; Generate 



ESC character 

- Home cursor 
ESC character 

- Clear to end 
ESC character 



/Select ascii character 



of screen 
set 



c 



i 
i 
I 



TSWIN - 
GENCAF 
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— Generate sequence to set character attributes 



1 
2 
3 
4 
5 

7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



. 3BTTL GENCAF — Generate sequence to set character attributes 

Generate the terminal sequence to set character attributes. 

Inputs: 
RO = Character attribute wanted 
R2 = Pointer to windouj control block 
R5 = Current character attribute 

Outputs: 
R5 = New character attributes 



UlUJ.3u KJXUl^O 

010132 010346 

010134 010446 

010136 010001 



010140 004737 010362' 



010144 032762 OOOOOOC OOOOOOG 
010152 001076 



010154 010103 

010156 010504 

010160 042703 OOOOOOC 

010164 042704 OOOOOOC 

010170 020304 

010172 001466 



1 1 74 004737 1 2456 ' 
010200 



010210 032701 OOOOOOG 

010214 001410 

010216 

010226 



010236 032701 OOOOOOG 

010242 001410 

010244 

010254 



010264 032701 OOOOOOG 



GENCAF; MOV 
MOV 
MOV 
MOV 



R 1 , - < SP ) 
R3, -<SP) 
R4, -<SP) 
RO, Rl 



; Carry new attributes in Rl 

See if we need to change character sets 

CALL GENCSC > See if we need to do character set change 

Don't have to worry about attributes if this is a VI 52 

BIT #<AW*52iAW*S52>, DW*AW(R2>> Is this a VT52? 
BNE 9* ; Br if yes 

See if character attributes have changed 

MOV R1,R3 ; Get new attributes 

MOV R5. R4 i Get current attributes 

BIC #-^C<AC*BLD ! AC*BLK ! AC*REV ! AC*ULN>i R3 

BIC #-^C<AC«BLD ! AC*BLK i AC*REV ! AC*ULN>, R4 

CMP R3f R4 i Have attributes changed? 

BEQ 9* iBr if not 

Initialize control sequence and turn off ail attributes 



CALL 
SEND 



GENCSI 
#'0 



See if bold is wanted 



BIT 


#AC*BLD, Rl 


BEQ 


1* 


SEND 


#SEMI 


SEND 


#'1 



;Send CSI 
i Send O 



; Is bold wanted? 
; Br if not 
i Send 'i 1 ' 



See if underscore is wanted 



1«: 



BIT 


#AC*ULN, Rl 


BEQ 


2* 


SEND 


#SEMI 


SEND 


#'4 



i Underline wanted? 
> Br if not 
iSend "i4" 



See if blinking is wanted 
2*: BIT #AC«BLK, Rl 



i 
I 
f 
f 

c 

( 
I 
f 

i 

I 

€ 

I 

€ 
I 



j Blinking wanted? 



I 
i 

i 



f 

i 
f 
< 
i 
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TSWIN — 


- TSX-Pl 


us Disp 


GENCAF - 


— Generate seq 


58 


010270 


001410 


59 


010272 




60 


010302 




61 






62 






63 






64 


010312 


032701 


65 


010316 


001410 


66 


010320 




67 


010330 




68 






69 






70 






71 


010340 




72 






73 






74 






75 


010350 


010105 


76 


010352 


012604 


77 


010354 


012603 


78 


010356 


012601 


79 


010360 


000207 



OOOOOOG 



BEQ 


3* 


SEND 


#SEMI 


SEND 


#'5 



; Br- if not 
; Send "; 5" 



See if reverse video is wanted 



3*; 



BIT 


#AC«REV, Rl 


* Reverse video wanted? 


BEQ 


7* 


j Br if not 


SEND 


#SEriI 


iSend "i7" 


SEND 


#'7 





Terminate the string by sending "m" 



7*: SEND 
i Finished 
9*: 



MOV 
MOV 
MOV 
MOV 
RETURN 



#'m 



Rl, R5 
(SP)+, R4 
<SP)+, R3 
<SP)+, Rl 



i Send "m" 



; Change current attributes to new attributes 



f 

< 

I 

I 

I 

I 

f 

i 

{ 

I 

I 

t 

< 

I 

4 
i 
1 
I 
f 
i 



i 
I 
( 
f 
i 
i 
i 

c 
I 
c 
i 

i 
* 



\ 



• ( 



TSWIN — 
GENCSC - 

i 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
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SBTTL GENCSC 



Generate terminal sequence to select char set 



Generate terminal control sequence to select the correct character 
set for the next character. 



Inputs: 
RO = Character attribute wanted 
R2 = Pointer to windouj control block 
R5 = Current character attribute 



010362 010046 

010364 010146 

kjx\j3oo uiu34o 

010370 010446 

010372 010001 



010374 010103 

010376 042703 OOOOOOC 

010402 010504 

010404 042704 OOOOOOC 

010410 020304 

010412 001443 



010414 032762 OOOOOOC OOOOOOG 
010422 001031 



GENCSC: MOV 
MOV 
MOV 
MOV 
MOV 



RO, -(SP) 
R1,-<SP) 
R3> -(SP ) 
R4, -(SP) 
RO, Rl 



; Carry new attributes in Rl 
Determine if character set has changed 



MOV 
BIC 
MOV 
BIC 
CMP 
BEQ 



R1,R3 



/Get neuj attributes 



#''X<AC*SET>, R3 i Select character set number only 



R5, R4 



j Get current attributes 



#'^C<AC*SET.>> R4 (Select character set number only 



R3, R4 
9* 



; Has character set changed? 

i Br if char set has not chanaed 



Character set has changed 



010424 004737 012444' 

010430 

010440 

010450 032762 OOOOOOG OOOOOOG 

010456 001421 

010460 004737 012444' 

010464 

010474 

010504 000406 



BIT #<AW*52!AW*S52>, DW«AW(R2)i Is this a VT52 terminal? 
BNE 1* J Br if VT52 

VT100/VT200 terminal. 

Generate sequence to map GO and G2 to correct character set 

CALL GENESC i Send ESC character 

SEND #'( J Select GO 

SEND SET200(R3) i Send char to map GO to correct char set 

BIT #AW*200, DW*AW(R2)j Is this a VT200 terminal? 

BEQ 9* i Br if not — Don't need to change G2 

CALL GENESC i Send ESC character 

SEND #'» ; Select G2 

SEND SET200<R3) i Send char to map G2 to correct char set 

BR 9* 

VT52 terminal. 

Select ascii or graphics character set. 



010506 004737 012444 
010512 



010522 012604 

010524 012603 

010526 012601 

010530 012600 

010532 000207 



1*: 



9*: 



CALL 


GENESC 


SEND 


SET52(R3) 


Finished 




MOV 


(SP)+, R4 


MOV 


(SP)+, R3 


MOV 


(SP)+,R1 


MOV 


(SP)+, RO 


RETURN 





i Send ESC character 

iSelect ascii or graphics characters 



€ 
f 

i 
i 
i 

i 

€ 

c 

f 
i 

€ 

f 
C 



i 
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GENCSC — Generate terminal sequence to select char set 

5S } Characters to fae sent to change GO character set designation 

59 ; 

60 010534 102 074 101 SET200: ASCII /B<AO/ 
010537 060 

61 i 

62 i Characters to select ascii or graphics mode on a VT52 

63 i 

64 010540 107 106 SET52: .ASCII /GF/ 

65 . EVEN 



t 
I 

c 

I 

i 

i 

i 

f 

( 
t 

I 
€ 

I 

i 



f 
i 



€ 
f 
f 



TSWIN -- 
GENMAP - 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
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- Generate sequence to set up char set mapping 



. SBTTL GENMAP — Generate sequence to set up char set mapping 

Generate control sequence to set up the correct character set 
mapping for GL* GR, GO, Gl. G2> and G3. 

Inputs: 
R2 = Pointer to windoui control block 



010542 010346 GENMAP: MOV 

010544 032762 OOOOOOC OOOOOOG BIT 

010552 001060 BNE 



R3. -(SP) 

#<AW«52!AW*S52>, DW*AW<R2); Is this a VT52 terminal? 

5* ;Br if VT52 



This is a VT100/VT200 terminal. 
Set up mapping for GL. 



010554 
010560 
010564 
010566 
010572 



010602 
010610 
010612 
010616 
010622 



010632 
010636 
010644 
010646 
010652 
010656 
010666 
010670 
010672 
010676 
010706 
010710 
010712 



010714 
010720 
010724 



010734 
010736 



116203 

120327 
101402 
004737 



OOOOOOG 
000001 

012444' 



1$: 



MOVE DW*GLM<R2).R3 

CMPB R3, #1 

BLOS 1* 

CALL GENESC 

SEND LSLCHR<R3) 



; Get mapping for GL 

; Mapping to GO or Gl? 

i Br if yes 

; Send ESC 

i Send correct lock shift character 



Set up mapping for GR 



032762 
001410 
116203 
004737 



OOOOOOG OOOOOOG 

OOOOOOG 
012444' 



BIT #AW*200, DW*AW<R2)i Is this a VT200? 

BEQ 2* i Br if not — Don't need to mess luith GR 

MOVE DW«GRM<R2),R3 i Get mapping for GR 

CALL GENESC i Send ESC 

SEND LSRCHR<R3) ; Send correct lock shift character 

Set up mapping for GO, Gl, G2, and G3 



012703 
032762 
001402 
012703 
004737 

010300 
060200 
1 1 6000 

005303 
002360 
000410 



004737 
116203 



000001 
OOOOOOG 

000003 
012444' 



OOOOOOG 



OOOOOOG 



2*: 



3*: 



MOV 


#1,R3 


BIT 


#AW$200, DU$AM<R2 


BEQ 


3* 


MOV 


#3, R3 


CALL 


GENESC 


SEND 


GNMCHR<R3) 


MOV 


R3, RO 


ADD 


R2, RO 


MOVB 


DW*GOM<RO), RO 


SEND 


SET200<R0) 


DEC 


R3 


BGE 


3* 


BR 


9* 



Assume ute only need to map GO and Gl 
>; Is this a VT200? 
Br if not 
Map G2 and G3 too 
Send ESC 
Select G# 
Get G number 

Point into uiindoui control block 
Get mapping wanted for G# 
Set mapping for the G# 
Have more G# to do? 
Loop if yes 



Set up mapping for a VT52 terminal 



012444' 
OOOOOOG 



5$: 



012603 
000207 



9*: 



CALL 


GENESC 


MOVB 


DW«G0M<R2),R3 


SEND 


SET52<R3) 


Finished 




MOV 


<SP>+, R3 


RETURN 





; Generate ESC character 

; Get ascii/graphics mapping code 

i Select correct mapping 



Characters used to lock shift a mapping into GL 



I 
( 

i 
i 
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59 010740 
010743 

60 

61 

62 

63 010744 
010747 

64 

65 

66 

67 010750 

68 



017 
157 



077 

174 



050 



016 156 LSLCHR: .ASCII <17><16>/no/ 

Characters used to lock shift a mapping into OR 
176 175 LSRCHR: ASCII Z?*^} I / 

Characters used to select OOj Gl* G2; or G3 for mapping 
051 052 GNMCHR: ASCII /()«+/ 

. EVEN 



I 

c 
I 

< 

I 

( 

€ 

i 
\ 
( 
4 

< 

i 

i 
i 

K 
t 
t 
I 



TSWIN - 
GENSSS 



- TSX-Plus Display Windo 
-- Generate sequence for 



3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

1 n 



010754 
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split screen scrolling 

, SBTTL GENSSS — Generate sequence for split screen scrolling 

Generate the terminal control sequence needed to set the terminal to 
split screen scrolling mode if that is needed. 

Inputs: 
R2 = Pointer to windouj control block 

GENSSS: 

We never set split screen scrolling for VT52 terminals 



14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 



r\ 1 r\-TBi.A 

Q\Qlh2. 



r\rt'-^-7 t.n r\r\r\r\c\r\r' r\r\r\r\r\ 



ooc 



)00000G 



001054 



026227 
00 1 004 
026262 
001444 



004737 
016200 
004737 

016200 
004737 



010764 
010772 
010774 
011002 



011004 
011010 
011014 
011020 
011030 
011034 
011040 



011050 
011056 
011060 
011064 
011074 
011104 



011114 000207 



OOOOOOG 
OOOOOOG 



000001 
OOOOOOG 



BNE 9* ; Br if yes 

See if see need to set split screen scrolling 

CMP DW*SRT(R2), #1 ils top line of scrolling region 1? 

BNE 2* ;Br if not 

CMP DW*SRB(R2),DW*LPP<R2)i Is bottom scroll line bottom of page? 

BEQ 9* i Br if yes 

Declare scrolling region 



012456' 
OOOOOOG 
012520' 

OOOOOOG 
012520' 



» 
2%: 



CALL 


GENCSI 


MOV 


DW*SRT<R2),R0 


CALL 


GENVAL 


SEND 


#SEMI 


MOV 


DW*SRB<R2),R0 


CALL 


GENVAL 


SEND 


#'r 



J Generate CSI character 

iGet top line # of scrolling region 

.: Cvt to ascii digits and send them 

i Send semicolon 

;Get bottom line of scrolling region 

; Cvt to ascii digits and send them 

i Terminate control sequence 



See if ue need to set relative origin mode 



032762 
001416 
004737 



OOOOOOG OOOOOOG 
012456' 



9« 



BIT 

BEQ 

CALL 

SEND 

SEND 

SEND 

Finished 

RETURN 



#AW*ORS* DW*AW<R2)i Is origin to be relative to scroll region? 

9* i Br if not 

GENCSI /Generate CSI character 

#'? J Send ? 

#'6 ; Send 6 

#'h i Send h 



I 
i 
i 

i 
I 
I 
C 
i 

1 
€ 

< 



f 
C 
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OENTEM — Turn VT52 emulation mode on or off 



c 

f 

I 

i 

< 
I 
( 
< 

( 



1 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 



SBTTL OENTEM — Turn VT52 emulation mode on or off 



01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 



01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 



1116 
1 122 
1126 
1134 
1136 
1144 
1146 
1154 
1160 
1170 
1200 
1210 



1220 
1222 
1230 
1232 
1236 
1246 
1250 
1256 
1260 
1266 
1270 
1274 
1304 
1314 
1324 
1334 
1336 
1342 
1352 
1362 
1372 
1402 
1412 



1 1 6200 
1 16000 
032762 
001426 
032760 
001126 
052760 
004737 



000504 



032760 
00 1 500 
042760 
010046 
004737 

012600 
026027 
001461 
026027 
001023 
004737 



000432 
004737 



Generate the terminal control sequence to turn VT52 emulation mode 
on or off as needed by this window. 

Inputs: 
R2 = Pointer to window control block 



See if we need to go into VT52 emulation mode 



OOOOOOG 
0000000 
OOOOOOG OOOOOOG 

OOOOOOG OOOOOOG 

OOOOOOG OOOOOOG 
012456' 



GENTEM: MOVE 
MOVE 
BIT 
BEQ 
BIT 
BNE 
BIS 
CALL 
SEND 
SEND 
SEND 
BR 



DW*J0B<R2). RO ; Get our job index number 

k.lNl l\.Lll\r\W/#l\\i/ /\7&v WUI ^1 A.11ICI1 ^ A M ti^ AllUCA iiwiliijifi 

#AW*S52, DW*AW(R2> ; Does window want VT52 emulation mode? 

2* i Br if not 

#*V52EM, LSWll<RO)i Is VT52 emulation mode on now? 

9* ; Br if yes 

#*V52EM- LSWIKRO); Say we are turning on VT52 emulation 

GENCSI i Send CSI character 

#'? i Send "?21" to reset ANSI mode 

#'2 

#'1 

9* 



See if we need to turn off V"f52 emulation mode 



OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 
012444' 

OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 
012456' 



012456' 



011422 000207 



2*: BIT 
BEQ 
BIC 
MOV 
CALL 
SEND 
MOV 
CMP 
BEQ 
CMP 
BNE 
CALL 
SEND 
SEND 
SEND 
SEND 
BR 

8*: CALL 
SEND 
SEND 
SEND 
SEND 
SEND 
SEND 

Finished 

9*: RETURN 



#*V52EM. LSWll<RO)i Is VT52 emulation mode on now? 

9* * Br if not 

#*V52EM* LSWlKROi Say we are turning off VT52 emulation 

RO, -<SP) i Save RO 

OENESC i Send ESC 

#'< iTell VT52 to enter ANSI mode 

<SP)+. RO ; Restore RO 

LTRMTP(R0>,#VT100 ;Is this a VTIOO? 

9* j BR if so 

LTRMTP(R0),#VT2008 ils term set VT220S 



8$ 

GENCSI 

#'6 

#'2 

#'" 

#'p 

9* 

GENCSI 

#'6 

#'2 

#SEMI 

#'1 

#'" 

#'p 



i BR if not 

i Send CSI 

/Send rest of sequence to set 

;VT220 8 bit contrils 



j Send CSI 

i Sent reset to sequence to set 

i VT220 7 bit contrils 



( 
I 

c 
I 

< 
i 

i 

i 

i 

f 

< 

i 

i 

I 

I 

I 

4 






TSWIN - 
GENWAF 
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— Generate terminal sequence to set window attrib 



t 
f 



X 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

1 n 

14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 



SBTTL GENWAF 



Generate terminal sequence to set uiindouj attrib 



Generate the terminal control sequence needed to set attributes for 
the entire window. 



Inputs: 
R2 = Pointer to window control block 



011424 010346 
011426 010446 



011430 016203 OOOOOOG 



011434 005103 

011436 012704 000154 

011442 004737 011534' 

011446 004737 011576' 



011452 005103 

011454 012704 000150 

011460 004737 011534' 

011464 004737 011576' 



1 1 470 004737 1 2444 ' 

011474 032762 OOOOOOG OOOOOOG 

011502 001405 

011504 

011514 000404 

011516 1*: 



GENWAF: MOV 
MOV 



R3, -<SP> 
R4, -<SP) 



COM 


R3 


MOV 


#'1,R4 


CALL 


GENAAS 


CALL 


GENDAS 



Get control flags for the window attributes 

MOV DW*AW<R2),R3 » Get window attribute flags 

Generate control sequence to reset some flags 

; Set flags that should be reset 
; Terminate string with lower-case L 
; Generate for ANSI attributes 
; Generate for DEC attributes 

Generate control sequence to set some flags 

J Set flags that should be set 

i Terminate string with lower-case H 

.Generate for ANSI attributes 

i Generate for DEC attributes 

See if we should set or reset application keypad mode 

» Send escape 
#AW«AKM> DW«AW<R2); Is application keypad mode wanted? 

; Br if not 
J Send equal sign 

; Send greater-than sign 



COM 


R3 


MOV 


#'h,R4 


CALL 


GENAAS 


CALL 


GENDAS 



011526 012604 
011530 012603 
011532 000207 



9*: 



CALL 


GENESC 


BIT 


#AW*AKM, 


BEQ 


1« 


SEND 


#' = 


BR 


9* 


SEND 


#'> 


inished 




MOV 


<SP)+, R4 


MOV 


<SP)+, R3 


RETURN 








TSWIN -- 
GENAAS ' 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

1 r> 
J. >J 

14 
15 
16 
17 

le 

19 
20 

21 
22 
23 
24 
25 
26 
27 
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011534 



011534 032762 OOOOOOC OOOOOOG 
011542 001014 



011544 032703 OOOOOOG 

011550 001411 

011552 004737 012456' 

011556 

011566 



011574 000207 



. SBTTL GENAAS — Generate control sequence for ANSI attributes 

Generate the control sequence to set or reset ANSI attribute flags. 

Inputs: 
R2 = Pointer to window control block 
R3 = Word with flags 
R4 = Character to terminate string with 

GENAAS: 

Don't send anything if this is a VT52 



BIT 
BNE 



#<AW*52!AW*S52>, DW*AW(R2)i Is this a VT52? 



9* 



Br if yes 



See if insert mode is wanted 



9$: 



BIT 


#AW*INS, 


R3 


Insert mode wanted? 


BEQ 


9* 




Br if not 


CALL 


GENCSI 




Send CSI character 


SEND 


#'4 




Send 4 


SEND 


R4 




Terminate string 


Finished 








RETURN 
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. SBTTL GENDAS — Generate control sequence for DEC attributes 

Generate a terminal control sequence to set or reset DEC attributes. 

Inputs: 
R2 = Pointer to window control block 
R3 = AW*xxx attribute flags 
R4 = Character to terminate string with 



011576 010146 
011600 010346 
011602 010546 



011604 032762 OOOOOOC OOOOOOG 
011612 001056 



GENDAS: MOV 
MOV 
MOV 



R 1 . - ( SP ) 
R3, -<SP) 
R5, -<SP) 



011614 032762 OOOOOOG OOOOOOG 

011622 001002 

011624 042703 OOOOOOG 



011630 005005 



011632 012701 011760' 



011636 036103 000002 
011642 001431 



We don't have to set any DEC private attributes for VT52 terminals. 

BIT #<:aW«52!AW*S52>, DW*AW(R2)i Is this a VT52? 
BNE 9* ; Br if VT52 

VT100/VT200 

If this is a VTIOO, clear VT200-only attribute flags. 

BIT #AW*200, DW*AW(R2)i Is this a VT200? 

BNE 5* ; Br i f VT200 

BIC #AW*VCR*R3 i Clear VT200-oniu flags 

i Init flag that says string hasn't been initiated yet 

i 

5*: CLR R5 ; Nothing sent yet 

i 

; Begin loop to decide uihat values need to be sent 

MOV #DECAT, Rl i Point to attribute table 

i 

i See if next attribute needs to be selected 



1«: 



BIT 
BEQ 



2(R1),R3 
4* 



; Is this attribute needed? 
i Br if not 



011644 005705 

011646 001010 

1 1 650 004737 1 2456 

011654 

011664 005205 

011666 000404 

011670 



011700 011100 

1 1 702 004737 1 2520 ' 



011706 032762 OOOOOOG OOOOOOG 



2*: 



3*: 



We need to select this attribute* see if we need to send 

CSI to start the string or semicolon to separate parameter values 

; Have we initiated the string? 

; Br if yes 

> Send CSI character 

i Send question mark 

/Remember string started 

i Send semicolon 

Now send the parameter value to selete the attribute 



TST 


R5 


BNE 


2* 


CALL 


GENCSI 


SEND 


#'? 


INC 


R5 


BR 


3* 


SEND 


#SEMI 



MOV 
CALL 



(R1),R0 
GENVAL 



; Get parameter value for attribute 
/Convert value to digit string and send 



c 

< 
i 
i 
i 
< 
i 
< 

i 
i 
t 
I 



If this is a VTIOO/ terminate the string for each attribute. 
B I T #AW«200/ DW*AW ( R2 ) ; VT200? 



I 
I 
I 

4 
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5S 


011714 


001004 




59 


011716 






60 


011724 


005005 




61 








62 








63 








64 


011726 


062701 


000004 


65 


011732 


005711 




66 


011734 


001340 




67 








68 








69 








70 


011736 


005705 




71 


011740 


001403 




72 


011742 






73 








74 








75 








76 


011750 


012605 




77 


011752 


012603 




78 


011754 


012601 




79 


011756 


000207 




80 








81 








82 








S3 








84 


011760 


000001 


OOOOOOG 


85 


011764 


000003 


OOOOOOG 


86 


011770 


000005 


OOOOOOG 


87 


011774 


000010 


OOOOOOG 


88 


012000 


000031 


OOOOOOG 


89 


012004 


000000 





BNE 


4* 


SEND 


R4 


CLR 


R5 



jBr xf yes 

; Send terminating character 

; Say string is not in progress 



See if more attributes need to be selected 



4*: 



ADD 


#4, Rl 


TST 


<R1) 


BNE 


1* 



iPoint to next attribute entry 
/Reached end of table? 
;Loop if not 



If we started the string^ terminate it 



9*: 



TST 


R5 


BEQ 


9* 


SEND 


R4 


Finished 




MOV 


(SP)+,R5 


MOV 


<SP)+, R3 


MOV 


<SP)+, Rl 


RETURN 





1/ ■ A iiij : 



i Br if not 

} Send terminating character 



fable of attribute values and DEC attribute flags 



DECAT: 


. WORD 


1 . , AWfACK 




. WORD 


3. , AW* 132 




. WORD 


5. 1 AW*REV 




. WORD 


8. . AW*RPT 




. WORD 


25. , AW*VCR 




. WORD 






i Application mode for cursor keys 

} 132 column mode 

i Reverse video mode 

{Automatic keypad repeat 

jMake cursor visible 

* End of table 



TSWIN — 


- TSX-Pl 


us Displ 


ay Wlndo 


GENLAF - 


— Generate terminal seq 


i 
2 








3 








4 








5 








6 








7 








8 


012006 


010546 




9 


012010 


010005 




10 








11 








12 








13 


012012 


032705 


OOOOOOC 


14 


012016 


001422 




15 


012020 


004737 


012444' 


16 


012024 






17 


012034 


032705 


0000000 


18 


012040 


001405 




19 


012042 






20 


012052 


000404 




21 


012054 






22 








23 








24 








25 


012064 


032705 


OOOOOOG 


26 


012070 


001412 




27 


012072 


004737 


012444' 


28 


012076 






29 


012106 






30 








31 








32 








33 


012116 


012605 




34 


012120 


000207 





. SBTTL GENLAF — Generate terminal sequence to set line attrib 

Generate the terminal control sequence needed to set the line attribute. 

Inputs: 
RO = Line attribute flags <AL*xxx) 



GENLAF: MOV 
MOV 



R5, -<SP) 
RO, R5 



i Get attribute flags 



See if double height wanted 



2*: 



1*: 



#<AL*DHT i AL*DHi3>* R5j Doub ie nigh uianted? 

; Br if not 
; Send ESC 
;Send "#" 

j Top or bottom half of char? 
i Br if bottom 
; Send 3 

; Send 4 



BIT 


#<AL*DHT i A 


BEQ 


1* 


CALL 


GENESC 


SEND 


#'# 


BIT 


#AL*DHT, R5 


BEQ 


2* 


SEND 


#'3 


BR 


1* 


SEND 


#'4 



See if double width is wanted 



9$: 



BIT 


#AL*DWD, R5 


BEQ 


9* 


CALL 


GENESC 


SEND 


#'# 


SEND 


#'6 


Finished 




MOV 


<SP)+, R5 


RETURN 





; Is double width wanted? 
; Br if not 
i Send ESC 
i Send "#'■ 
; Send 6 



f 
I 

c 
I 

i 

i 

i 



i 
i 
i 



i 
c 
c 

I 
( 
( 
I 
♦ 
( 
c 
f 
i 
I 
{ 
< 
( 



TSWIN - 
GENSPC • 



3 

4 

5 

6 

7 

8 

9 

10 

U 

12 

1 T 
J. *-i 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 
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SBTTL GENSPC — Generate sequence to move cursor over 



Generate spaces or a control sequence to move the cursor right 
from the current cursor position (specified by DW*C0L(R2)) to 
a specified column. 

Inputs: 
R2 = Pointer to uiindou control block 
Rl = Column number we are to move to 



012122 010346 



GENSPC: MOV 



R3, -<SP) 



jb/Svermine iiouf maiiy co^Uiims \uS iuani> t/C move over 



012124 
012126 
012132 



012134 
012140 
012142 
012152 
012154 



010103 
166203 

003452 



020327 
003006 

077305 
000441 



OOOOOOG 



MOV R 1 , R3 

SUB DW*C0L<R2),R3 

BLE 9* 



j Get destination column 

j Subtract current column number 

i Br if don't need to move at all 



If uje need to move no more than 5 columns^ output spaces 



000005 



1*: 



CMP 


R3. #5 


BOT 


2* 


SEND 


#40 


SOB 


R3, 1* 


BR 


9« 



jNeed to move more than 5 columns? 

i Br if yes 

) Send a space 

i Loop to send more 

.: Finished 



We need to move more than 5 columns; generate control sequence. 
Determine terminal type. 



012156 
012164 



012166 
012172 
012174 
012200 
012210 



012212 
012216 
012226 
012232 
012236 
012244 
012246 
012252 



032762 
001012 



004737 
010300 
004737 

000423 



OOOOOOC OOOOOOG 2*: 



BIT #<AW*52!AW*S52>, DW*AW(R2)i VT52 terminal? 
BNE 5* i Br if VT52 



Generate control sequence for VTIOO 



012456' 
012520' 



CALL 


GENCSI 


MOV 


R3, RO 


CALL 


GENVAL 


SEND 


#'C 


BR 


9* 



i Generate CSI header 
; Get # columns ue need to move 
J Convert and output that value 
i Terminate control sequence 



Generate control sequence for VT52 



004737 012444' 



5*: 



016200 
062700 

010100 
062700 



OOOOOOG 
000037 



000037 



CALL 


GENESC 


SEND 


#'Y 


MOV 


DW*LIN<R2),R0 


ADD 


#37, RO 


SEND 


RO 


MOV 


R1,R0 


ADD 


#37, RO 


SEND 


RO 



012260 010162 OOOOOOG 



i Change current column number 
9*: MOV Rl, DW*C0L(R2) 
Finished 



Generate escape 

Start of cursor addressing sequence 

Get current line number 

Form ascii char for line number 

Send it 

Get wanted column number 

Form ascii char for column number 

Send it 



Say we have moved up to this column 



( 
I 

f 
I 
< 

i 
i 
i 
i 
( 
( 
1 

< 

( 
( 
i 
t 
I 
I 
I 
i 



t 



f 
I 
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GENSPC — Generate sequence to move cursor over 

58 012264 012603 MOV <SP)+, R3 

59 012266 000207 RETURN 
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GENCSR — Generate cursor addressing sequence 



c 
I 

f 

i 



012270 



■I 

X 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 
1 r> 

14 

15 012270 

16 012276 
17 

18 
19 

20 012300 

21 012304 

22 012310 

23 012316 

24 012320 

25 012324 

26 012326 

27 012330 

28 012334 

29 012340 

30 012350 

31 012354 

32 012360 

33 012370 
34 

35 
36 

37 012372 

38 012376 

39 012406 

40 012412 

41 012416 

42 012424 

43 012430 

44 012434 
45 

46 
47 
48 012442 



032762 
001035 



004737 
016200 
032762 
001406 
166200 
005200 
003002 
012700 
004737 

016200 
004737 

000424 



016200 
062700 

016200 
062700 



000207 



. SBTTL SENCSR — Generate cursor addressing sequence 

Generate the appropriate terminal control sequence to move the 
cursor to the current line and column. 

Inputs: 
R2 = Pointer to uiindoiu control block 
DW*LIN(R2) = Current line number 
DW*C0L<R2) = Current column number 



GENCSR: 



OOOOOOC OOOOOOG 



jb/cwi;! III4.IIC: wifdu t/i^pb^ u T ut; i mjL ma x %tti x s Ji» 

BIT #<AW*52!AW*S52>, DW*AW(R2); Is this 
BNE 5* iBr if VT52 

Generate sequence for a VTIOO 



a VT52? 



012456' 
OOOOOOG 
OOOOOOG 

OOOOOOG 



000001 
012520' 

OOOOOOG 
012520' 



OOOOOOG 



1«: 



CALL 


GENCSI 


MOV 


DW*LIN<R2>,R0 


BIT 


#AM$ORS. DWIiAW 


BEQ 


1* 


SUB 


DW*SRT(R2)>R0 


INC 


RO 


BGT 


1* 


MOV 


#1,R0 


CALL 


GENVAL 


SEND 


#SEMI 


MOV 


DW*C0L<R2),R0 


CALL 


GENVAL 


SEND 


#'H 


BR 


9* 



i Generate CSI character 
»Get line number 
2>i Is origin relative to scroll region? 

Br if not 

Subtract top line of scroll region 

1st line is 1 

Br if Mie are tuithin scroll region 

Force to 1st line of scroll region 

Convert to ascii digit string 

Send semicolon 

Get column number 

Convert to ascii digit string 

Terminate sequence 



Generate control sequence for VT52 



004737 012444 



OOOOOOG 
000037 

OOOOOOG 
000037 



5«: CALL 


GENESC 


SEND 


#'Y 


MOV 


DW*LIN(R2),R0 


ADD 


#37, RO 


SEND 


RO 


MOV 


DW*C0L<R2>,R0 


ADD 


#37, RO 


SEND 


RO 


i Finished 




9*: RETURN 





Generate escape 

Start of cursor addressing sequence 

Get current line number 

Form ascii char for line number 

Send it 

Get current column number 

Form ascii char for column number 

Send it 



c 
f 

< 

I 
i 
I 
( 
i 
i 
< 
( 
t 
t 
I 

i 
i 
1 
I 
i 
i 
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i 




2 




3 




4 




5 012444 




6 012454 


000207 


7 




S 




9 




10 




11 




12 012456 




13 




14 




15 




16 




17 




IS 




19 




20 




21 




22 




23 012456 




24 012466 




25 




26 




27 




28 012476 


000207 


29 




30 




31 




32 




33 




34 




35 




36 




37 




38 012500 


010146 


39 012502 


116201 0000000 


40 012506 




41 012514 


012601 


42 012516 


000207 
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. SBTTL GENESC — Generate escape character 

Send an escape character to the terminal 

GENESC: SEND #33 ; Send escape to the terminal 

RETURN 

. SBTTL GENCSI — Generate CSI character sequence 

} ———————— —___._______________~~—— —————— ————— — ———_.————————————_—. 

; Send a CSI (ESC C) sequence to the terminal. 

GENCSI: 

Send 8-bit CSI character to VT200 terminals 

BIT #AW*200» DW*AW(R2); Is this a VT200 terminal? 

BEQ 1* i Br if not 

SEND #CSICHR ; Send S-bit CSI character to VT200 

BR 9* 



1*: 



Send ESC C to VTIOO terminals 

SEND #33 J 

SEND # ' C 



; Send escape 
iSend "L" 



t 



Finished 

9*: RETURN 

. SBTTL OENCHR — Send a character to the terminal 

Send a single character to the terminal 

Inputs: 
RO = Character to be sent 
R2 = Pointer to window control block 

GENCHR : MOV R 1 , - ( SP ) 

MOVE DW*J0B(R2>, Rl i Get # of job we are sending to 

OCALL BUFCHR ; Send the character 

MOV <SP)+, Rl 
RETURN 
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1 

2 






3 






4 






5 






6 






7 






8 






9 


012520 


010446 


10 


012522 


010546 


11 


012524 


010005 


12 






13 






14 






15 


012526 


005046 


16 


012530 


005004 


17 


012532 


071427 000012 


18 


012536 


062705 000060 


19 


012542 


010546 


20 


012544 


010405 


21 


012546 


001370 


22 






23 






24 






25 


012550 


012600 


26 


012552 


001404 


27 


012554 




28 


012562 


000772 


29 






30 






31 






32 


012564 


012605 


33 


012566 


012604 


34 


012570 


000207 
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send 

. SB7TL GENVAL — Convert value to digits and send 

Convert a binary value to an ascii digit string and send to the 
terminal. 

Inputs: 
RO = Value to be converted and sent 



I 
f 



GENVAL: MOV 
MOV 
MOV 



R4, -(SP) 
R5> -(SP) 
RO, R5 



1*: 



» Get value to be converted 

wonvert to digits and stack the digits 



Store null on stack to indicate end 

Clear high-order for divide 

Divide R4~R5 by 10. 

Convert remainder to ascii digit 

Stack the character 

Get quotient 

Loop if more digits to convert 



CLR 


-(SP) 


CLR 


R4 


DIV 


#10. ,R4 


ADD 


#'0, R5 


MOV 


R5, -(SP) 


MOV 


R4, R5 


BNE 


1* 



Now pop the digits and send them 



>*: 



9*: 



MOV 


(SP)+, RO 


BEQ 


9* 


SEND 


RO 


BR 


2* 


inished 




MOV 


(SP)+, R5 


MOV 


(SP)+, R4 


RETURN 





j Get next char to send 

; Br if finished 

> Send a digit 

; Send rest of number 



( 
t 

i 

i 
i 
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1 
2 






3 






4 






5 






6 






7 






8 






9 






10 






11 012572 






12 






13 






14 






15 012572 


1 1 3700 


OOOOOOG 


16 012576 


020027 


000006 


17 012602 


001407 




18 012604 


032761 


OOOOOOG OOOOOOG 


19 012612 


001403 




20 012614 


005000 




21 012616 


000137 


OOOOOOG 


22 






23 






24 






25 012622 


006300 




26 012624 


020027 


000020 


27 012630 


103403 




28 012632 


005000 




29 012634 


000137 


OOOOOOG 


30 






31 






32 






33 012640 


000170 


012644' 


34 






35 






36 






37 012644 


012664' 




38 012646 


013354' 




39 012650 


013422' 




40 012652 


013534' 




41 012654 


013554' 




42 012656 


013574' 




43 012660 


013642' 




44 012662 


014124' 




45 


000020 




46 







. 3BTTL EMTWIN 



Dispatch uiindouj control EMT's 



EMTWIN is entered from EMT processing when a windotu control EMT 
is executed. It dispatches control to the correct processing 
routine based on the subfunction code. 

Inputs: 
Rl = Job index number 
EMTBLK = EMT argument block 

EMTWIN: 

Ignore iuindow control Erfl ' s if this is a detached job 

MOVB EMTBLK, RO ; Get EMT subfunction code 

CMP RO, #6 ; Read-windoui-data function? 

BEQ 2* i Br if yes — OK for detached jobs 

BIT #*DETCH, LSW<R1> i Is this a detached job? 

BEQ 2* ;Br if not 

CLR RO i Return error for detached job 

JMP SETERR 

Get EMT subfunction code and make sure it is valid 



>*: ASL RO 

CMP RO, #MAXSFC 

BLO 1* 

CLR RO 

JMP SETERR 

Enter processing routine 

1*: JMP @WINVEC<RO) 



; Convert subfun code to word table index 

»Is the subfunction code valid? 

•Br if yes 

i Return error code if not 



i Branch vect 


or for sub 


WINVEC: 


. WORD 


WFNEW 




. WORD 


WFMAP 




. WORD 


WFDEL 




. WORD 


WFSPND 




. WORD 


WFRSUM 




. WORD 


WFPRNT 




. WORD 


WFREAD 




. WORD 


WFSTT 


MAXSFC 


= 


. -WINVEC 



i Enter processing routine 



- Create a new window 

1 - Select a window 

2 - Delete a window 

3 - Suspend window processing 

4 - Resume window processing 

5 - Print the specified window 

6 - Read window data into program buffer 

7 - Set terminal type 
Highest branch vector index 



i 



f 
i 



TSWIN — 


- TSX-Pl 


us Displ 


ay Windo 


MACRO V 


WFNEW - 

1 
2 
3 
4 


— EMT t 


o create 


a rteuj utindout 


5 
6 
7 
8 
9 
10 










11 










12 










13 










14 










15 










16 


012664 








17 










18 










19 










20 


012664 


113702 


000002G 




21 


012670 


004737 


014324' 




22 


012674 


103402 






23 


012676 


004737 


014270' 




24 










25 










26 










27 


012702 


013702 


000002 ' 




28 


012706 


105762 


OOOOOOG 




29 


012712 


001411 






30 


012714 


062702 


OOOOOOG 




31 


012720 


020237 


000004 ' 




32 


012724 


103770 






33 


012726 


012700 


000001 




34 


012732 


000137 


OOOOOOG 




35 










36 










37 










38 


012736 


012700 


OOOOOOC 




39 


012742 


010203 






40 


012744 


005023 






41 


012746 


077002 






42 


012750 


110162 


OOOOOOG 




43 


012754 


113762 


000002G 


OOOOOOG 


44 


012762 


012762 


OOOOOOC 


OOOOOOG 


45 


012770 


113700 


000004G 




46 


012774 


042700 


177400 




47 


013000 


001002 






48 


013002 


012700 


000120 




49 


013006 


020027 


000204 




50 


013012 


101402 






51 


013014 


012700 


000204 




52 


013020 


010062 


OOOOOOG 




53 


013024 


012762 


000030 


OOOOOOG 


54 


013032 


113762 


00000 5G 


OOOOOOG 


55 


013040 


012762 


000001 


OOOOOOG 


56 


013046 


012762 


000001 


OOOOOOG 


57 


013054 


016262 


OOOOOOG 


OOOOOOG 
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. SBTTL WFNEW — EMT to create a new Ufindou 

WINNEW is the EMT used to define a new window. 
The form of the EMT arqument block is: 



BYTE 
BYTE 
BYTE 
WORD 
WORD 



0, 161 

window_number* perm_f lag 

u>indow_width» max_scroll 

copy_window» copy_job 





Inputs: 

O 1 — 



iu index nuinber 
EMTBLK = EMT argument block 



WFNEW: 



If a 



window 


with this nu 


MOVB 


EMTBLK+2, R2 


CALL 


WINSRC 


BCS 


1* 


CALL 


WINDEL 



this number already exists for this job> delete it. 



> Get specified window number 

> Try to locate window control block 

i Br if that window not currently defined 

; Delete the window 



Try to find a free window control block 



1*: 
2*: 



MOV DWBAS.. R2 

TSTB DW*J0B<R2> 

BEQ 5$ 

ADD #DW**SZ/ R2 

CMP R2, DWEND 

BLO 2$ 

MOV #1,R0 

JMP SETERR 



•Point to 1st window control block 
Is this block free? 
Br if yes 

Point to next window block 
Checked all blocks? 
Br if yes 
Return error if no free blocks 



Initialize the window control block 



5*: 



3*: 



11*: 



12*: 



MOV 

MOV 

CLR 

SOB 

MOVB 

MOVB 

MOV 

MOVB 

BIC 

BNE 

MOV 

CMP 

BLOS 

MOV 

MOV 

MOV 

MOVB 

MOV 

MOV 

MOV 



; Get # words in window block 
j Get pointer to control block 
/Zero the entire block 



#DW**SZ/2, RO 

R2, R3 

(R3) + 

RO, 3* 

Rl» DW*J0B(R2) ; Set our job number 

EMTBLK+2, DW*ID<R2); Set window ID number 

#<AW* VCR ! AW*RPT>, DW*AW<R2)i Initialize window attribute flags 



EMTBLK+4, RO 

#'^C<377>, RO 

11* 

#80. , RO 

RO, #132. 

12* 

#132. ,R0 

RO, DW*CPL(R2) 



Get # columns per line 
Kill sign extension 
Br if width not zero 
Set width to 80 
Compare with max width 
Br if ok 

Constrain to 132 
Set number of columns 



allowed 



#24. ,DW*LPP(R2) iSet number 
EMTBLK+5, DW*MSL<R2>i Set max- 
#1,DW*TLN(R2) ;Say line 1 
#1, DW*SRT<R2) ;Say line 1 



per line 
of lines per page 
scrolled-1 ines parameter 
is at top of buffer 
is top of scrolling region 



DW*LPP(R2), DW*SRB<R2); scrolling region goes to end of page 



€ 
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t 
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I 
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I 
I 
I 
I 

c 
« 
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I 
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I 
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i 

i 



TSWIN - 
WFNEW 

se 

59 
60 
61 
62 
63 
64 
65 
66 
6? 
68 
69 

t ■w 

71 
72 
73 
74 
75 
76 

78 

79 

80 

81 

S2 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 
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— EMT to create a new window 



013066 
013074 
013076 
013104 
013112 



013120 
013126 
013130 
013136 
013140 



013146 
013152 
013154 



013162 
013166 
013170 
013172 
013176 
013200 
013204 
013206 
013212 
013214 
013216 
013222 
013226 
013230 
013236 
013244 
013252 
013256 
013262 
013270 
013274 



013276 
013302 
013304 
013310 



1 3062 004737 014160' 



032761 
001411 
1 1 2762 
112762 
1 1 2762 



032761 
001407 
032761 
001403 
052762 



105737 
001403 
052762 



005737 
001443 
010203 
013702 
010201 
042702 
000301 
042701 
006301 
001002 
113701 
004737 
103422 
016263 
016263 
116263 
016200 
042700 
042763 
050063 
010302 



004737 
103006 
004737 
012700 



OOOOOOC OOOOOOG 



000001 
000001 
000002 



OOOOOOG 
OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 
OOOOOOG 



000003G 
OOOOOOG OOOOOOG 

000006G 

000006G 

177400 

177400 



OOOOOOG 
014324' 



Initialize terminal type 

CALL WINSTT ; Set correct terminal type 

Initialize character set mapping for a VT200 

BIT #<VT2007!VT2008>, LTRMTP<Rl)i Is terminal a VT200? 

BEQ 7* ;Br if not 

MOVE #1, DW*G2M<R2) ; Map G2 to DEC supplemental chars 

MOVB #1,DU$G3M<R2) i Map G3 to DEC supplemental chars 

MOVB #2, DW*GRM<R2) ; Map GR to G2 

Set application keypad mode if Single line editor is in KED mode 

7*: BIT #*SLON, LSW7<R1 ) jIs single-line editor turned onT' 

BEQ 10* i Br if not 

BIT #*SLKED, LSW7<R1); Is SL in KED mode? 

BEQ 10* ; Br if not 

BIS #AW*AKM, DW*AW<R2)i Set application keypad mode 

See if this window should be permanent 

10*: TSTB EMTBLK+3 » Is permanent-window flag set? 
BEQ 8* ;Br if not 

BIS #AW*PRM» DW*AW(R2); Remember window is permanent 

See if we should copy any window attributes from an existing window 



8*: 



14*: 



OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOC 
OOOOOOC 
OOOOOOG 



OOOOOOG 
OOOOOOG 
OOOOOOG 



OOOOOOG 



15*: 



TST 

BEQ 

MOV 

MOV 

MOV 

BIC 

SWAB 

BIC 

ASL 

BNE 

MOVB 

CALL 

BCS 

MOV 

MOV 

MOVB 

MOV 

BIC 

BIC 

BIS 

MOV 



EMTBLK+6 

13* 

R2, R3 

EMTBLK+6, R2 

R2, Rl 

#'"C<377>, R2 

Rl 

#'^C<377>, Rl 

Rl 

14* 

CORUSR, Rl 

WINSRC 

15* 



i Should we copy attributes from another windo? 

; Br if not 

i Save addr of new window control block 

J Get window_id and job number 



fClear all but window ID 

iGet job # to low-order byte 

i Clear all but job number 

/Get job index number 

* Br if job number specified 

/Assume current job 

i Try to find existing window control block 

> Br if could not find one 
DW*LPP(R2),DW*LPP<R3) ; Copy # lines per page 
DW*CPL(R2),DW*CPL<R3) ; Copy # columns per line 
DW*MSL(R2),DW*MSL<R3) i Copy max # scroll lines 
DW*AW(R2)/R0 /Get window attribute flags 
#-^C<AW*132! AW*REV>, RO i Leave only ones to be copied 
#<AW*132f AW*REV>, DW*AW(R3) /Clear in new control block 
R0/DW*AW(R3) /Transfer the flags 
R3/ R2 /Get back address of new window control block 



Create a named local region for the screen buffer for the wind 



ow 



014370' 

014270' 
000002 



13*: 



CALL 


MAKWSB 


BCC 


4* 


CALL 


WINDEL 


MOV 


#2/R0 



/Make a window screen buffer 
/Br if we made the region 
/Delete the window 
/Return error code 2 



t 

i 
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< 
( 
I 
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I 
( 
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t 



TSWIN 
WFNEW 
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- EMT to create a new ujindoui 



lie; 

J. A ur 

116 

117 

118 

119 

120 

121 

122 

123 

124 

125 

126 
1 n-j 

128 
129 
130 
131 



5 013314 000137 OOOOOOG 



013320 004737 006216' 



013324 012700 000001 

013330 110062 OOOOOOG 

013334 110062 OOOOOOG 

013340 010062 OOOOOOG 

m 3*^4^1 nn4737 nnA7in' 



013350 000137 OOOOOOG 



JMP SETERR 

i 

i Clear entire screen contents to blanks 

4*: CALL ERSPAO > Clear all positions to spaces 

i Set line 1, column 1 as cursor position 



MOV 
MOVE 
MOVE 
MOV 

Finished 
JMP 



#1,R0 

RO; DW*SLN(R2) 

RO, DW*SCL<R2) 

RO, DW*CQL<R2) 

SETLIN 



EMTXIT 



> Get value 1 
; Init saved line # to 1 
; Init saved column # to 1 
i Set column = 1 



i 

i 

i 
f 
i 

< 
i 
( 
€ 
f 

i 
i 
I 
€ 

I 

i 



i 
I 



TSWIN 
WFMAP 
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1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 
1 n 

14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 



013354 



013354 013702 000002G 

013360 001003 

013362 005061 0000000 

013366 000413 



013370 004737 014324' 

013374 103004 

013376 012700 000003 

013402 000137 OOOOOOG 



013406 010261 OOOOOOG 



013412 004737 007072 



013416 000137 OOOOOOG 



. SBTTL WFMAP — EMT to select a window as the current window 

Select a window as the current window for the job and refresh 
the display screen from the window contents. 

Inputs: 
Rl = Job index number 
EMTBLK = EMT argument block 

WFMAP : 

If current window number is zero* switch back to no window 



MOV EMTBLK+2, R2 

BNE 2* 

CLR LWIND0<R1) 

BR 9* 



; Get specified window number 
J Br if some window specified 
; Say we are not doing windoing 



Locate the window control block for the specified window 



2«: 



CALL 


WINSRC 


BCC 


1* 


MOV 


#3, RO 


JMP 


3ETERR 



; Find window control block 
J Br if found it 
; Error 3 if not 



Set this window as the current window for the job 
1*: MOV R2, LWINDO(Rl) ; Say this is current window for job 

Refresh the display from selected window 

CALL REFRSH /Refresh display from window contents 

Fini shed 
9*: JMP EMTXIT 
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2 
3 
4 
5 
6 
7 

e 

9 
10 

11 

12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 



013422 



013422 113702 0000020 

013426 001406 

013430 120227 177777 

013434 001024 



013436 004737 
013442 000432 



014236' 



. SBTTL WFDEL — EMT to delete a uiindoui 

EMT to delete a u/indou). 

Inputs: 
Rl = Job index number 

WFDEL: 

Try to locate control block for the uindoui 

; Get specified uiindotu number 
i xjV ii uixnuOuf nuiifber x s zero 
i Is window number -ll' 
i Br if not 

Delete all windows for job <temp and permanent) 

i Release all windows for the job 



MOVE 


EMTBLK+2, R2 


BEQ 


3* 


CMPB 


R2, #-1 


BNE 


2* 



CALL 
BR 



WINREL 
9* 



013444 013702 000002' 

013450 120162 0000000 

013454 001006 

013456 032762 0000000 OOOOOOG 

013464 001002 

013466 004737 014270' 

013472 062702 OOOOOOG 

013476 020237 000004' 

013502 103762 

013504 000411 



013506 004737 014324' 

013512 103004 

013514 012700 000003 

013520 000137 OOOOOOG 



013524 004737 014270' 



013530 000137 OOOOOOG 



Window number zero means delete ail temporary windows 

3*: riQV DWBAS* R2 ; Point to Ist window control block 

5*: CMPB Rl/ DW*J0B(R2) ; Does this window belong to our job? 

BNE 4« iBr if not 

BIT #AW*PRM* DW*AW(R2)i Is this a perm or temp window? 

BNE 4* i Br if permanent window 

CALL WINDEL i Delete this window 

ADD #DW**SZ. R2 ; Point to next window control block 

CMP R2, DWEND ; Checked all? 

BLO 5* ;Br if not 

BR 9* 

We are deleting a specific window 



4*: 



2*: 



CALL 


WINSRC 


BCC 


1* 


MOV 


#3, RO 


JMP 


SETERR 



i Try to locate window control block 

; Br if located the window control block 

i Error code 3 if cannot locate window 



Delete the window 
1*: CALL WINDEL 

Finished 
9*: JMP EMTXIT 



; Delete the window 



c 

f 



i 

i 
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i 
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1 
2 
3 
4 
5 
6 
7 
S 
9 

10 013534 

11 013540 

12 013542 

13 013550 
14 

15 
16 
17 
IS 
19 
20 
21 

22 013554 

23 013560 

24 013562 

25 013570 



SBTTL WFSPND 



Suspend uiindou processing 



016102 
001403 
052762 
000137 



0000000 

OOOOOOG 
0000000 



Suspend window processing. After executing this emt. window 
processing is suspended- Characters are passed through to the 
screen without being processed by the window routine. 

Inputs: 
Rl = Job index number 

WFSPND: MOV LWIND0<R1 ) , R2 ; Get pointer to current window control block 

BEQ 9* J Br if job has no window active now 

OOOOOOG BIS #AW*SPN, DW*AW(R2)i Set flag suspending window processing 

9*: JMP EMTXIT > Finished 



. SBTTL WFRSUM — Resume window processing 



Resume window processing. 

Inputs: 
Rl == Job index number 



016102 
001403 
042762 
000137 



OOOOOOG 

OOOOOOG 
OOOOOOG 



WFRSUM: MOV 

BEQ 

OOOOOOG BIC 

9* : JMP 



LWIND0(R1 )» R2 ; Get pointer to current window control block 
9* ; Br if job has no window active now 

#AW$SPN> DW$AW<R2>> Say window no longer suspended 
EMTXIT ; Finished 



( 

i 
i 



t 
I 



TSWIN - 
WFPRNT 



2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 
1 r> 

14 
15 
16 
17 
IS 
19 
20 
21 
22 

23 

1.1 

lSL"r 

25 
26 
27 
28 
29 
30 
31 
32 
33 
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— Cause contents of a uiindow to be printed 



m '^■574 



013574 113702 0000020 

013600 001403 

013602 004737 014324' 

013606 103004 

013610 012700 000003 

013614 000137 OOOOOOG 



013620 004737 015074' 

013624 103004 

013626 012700 000004 

013632 000137 OOOOOOG 



013636 000137 OOOOOOG 



. SBTTL WFPRNT — Cause contents of a luindoui to be printed 

Cause the contents of a window for the current job to be printed. 

Inputs: 
Rl = Job index number 

EMT argument block: 

. BYTE 5, 161 

. BYTE window_id> 

WFPRNT; 

Locate the window control block for the specified window 

j Get specified window ID 
} Zero is inval id 
i Find window control block 
J Br if found it 
3*: MOV #3, RO i Error 3 if invalid window ID 



MOVE 


EMTBLK+2, R2 


BEQ 


3* 


CALL 


WINSRC 


BCC 


1* 


MOV 


#3, RO 


JMP 


SETERR 



Print this windo 



w 



1$: 



CALL 
BCC 
MOV 
JMP 



Finished 
9*: JMP 



WINPRT 
9* 

#4, RO 
SETERR 



EMTXIT 



; Try to print the window 
> Br if successful 
/Error 4 if can't print 
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3 








4 








5 








6 








7 








8 








9 








10 








11 








12 


013642 






13 








14 








15 








16 


013642 


013700 


000004G 


17 


013646 


004737 


OOOOOOG 


IS 


013652 


063700 


000006G 


19 


013656 


004737 


0000000 


20 








21 








22 








23 


013662 


113701 


0000030 


24 


013666 


006301 




25 


013670 


001002 




26 


013672 


113701 


OOOOOOG 


27 


013676 


120137 


OOOOOOG 


28 


013702 


001410 




29 


013704 


032737 


OOOOOOG OOOOOOG 


30 


013712 


001004 




31 


013714 


012700 


000001 


32 


013720 


000137 


OOOOOOG 


33 








34 








35 








36 


013724 


113702 


000002G 


37 


013730 


004737 


014324' 


38 


013734 


103004 




39 


013736 


012700 


000003 


40 


013742 


000137 


OOOOOOG 


41 








42 








43 








44 


013746 


016203 


OOOOOOG 


45 


013752 


070362 


OOOOOOG 


46 


013756 


006303 




47 


013760 


066203 


OOOOOOG 


48 


013764 


005203 




49 


013766 


042703 


000001 


50 


013772 


010300 




51 


013774 


062700 


000006 


52 


014000 


020037 


000006G 


53 


014004 


101404 




54 


014006 


012700 


000004 


55 


014012 


000137 


OOOOOOG 


56 








57 









. SBTTL WFREAD — Copy window information to program buffer 

Copy window data into buffer in program area. 

EMT argument block: 

. BYTE 6, 161 

. BYTE window__id» job._number 

.WORD buffer_address 

. WORD buffer_size 

WFREAD; 

j 

i Make sure specified buffer address and size is ok 

Get base address of buffer 
Make sure it's ok 
Add specified size 
Make sure end is ok too 

Get the number of the job whose window we want to read 



MOV 


EMTBLK+4, RO 


CALL 


VALADW 


ADD 


EMTBLK+6, RO 


CALL 


VALADB 



1«: 



MOVB 


EMTBLK+3, Rl 


ASL 


Rl 


BNE 


1* 


MOVB 


CORUSR^Rl 


CMPB 


Rl.-CORUSR 


BEQ 


5* 


BIT 


#P2*CXT, PRIVC2 


BNE 


5* 


MOV 


#1,R0 


JMP 


SETERR 



Get specified job number 

Convert to job index number 

Br if job number specified 

Get current job index number 

Are we reading window for our job? 

Br if yes 

Do we have GETCXT privilege? 

Br if yes 

Error 1 if not 



Find the specified window control block 



5*: 



MOVB 


EMTBLK+2, R2 


CALL 


WINSRC 


BCC 


2« 


MOV 


#3, RO 


JMP 


SETERR 



; Get window ID 

i Search for specified window 

i Br if found the window control blk 

> Invalid window ID 



Determine how much data must be copied 



2*: 



; Get # lines on page 

i Times # columns per line 

i Need two bytes for each char cell 

iAdd space used by line attrib vector 

i Round up to next word 

> Get # bytes of window buffer data 

J Add # bytes for parameter words 

i Is buffer large enough? 

; Br if yes 

; Error 4 if buffer too small 



Copy some window parameter information before actual window buffer 



MOV 


DW«LPP<R2),R3 


MUL 


DW*CPL(R2),R3 


ASL 


R3 


ADD 


DW*LPP<R2),R3 


INC 


R3 


BIC 


#1,R3 


MOV 


R3, RO 


ADD 


#3»2, RO 


CMP 


RO, EMTBLK+6 


BLOS 


3* 


MOV 


#4, RO 


JMP 


SETERR 
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5S 








59 


014016 


013705 


000004G 


60 


014022 


016246 


OOOOOOG 


61 


014026 


106625 




62 


014030 


016246 


OOOOOOG 


63 


014034 


106625 




64 


014036 


016246 


OOOOOOG 


65 


014042 


106625 




66 








67 








68 








69 


014044 


006203 




70 


014046 


012704 


OOOOOOG 


71 


014052 






72 


014074 


012400 




73 


014076 






74 


014112 


010046 




75 


014114 


106625 




76 


014116 


077323 




77 








78 








79 








80 


014120 


000137 


OOOOOOG 



3*: 



4*: 



MOV EMTBLK+4, R5 ; Get address of user's buffer 

MOV DW*TLN<R2), -(SP>i Store top line number 

MTPD (R5)+ 

MOV DW*LPP(R2), -(SP)i Store # lines per page 

MTPD <R5)+ 

MOV DW*CPL<R2), -(SP)J Store # columns per line 

MTPD <R5)+ 

Copy data from uindotu region to user's buffer 

Get # words to copy 

vre w v 1 r t audress of ujxndow region 

j i Map to ujindouj region 

; ; Get a word from screen region 

Restore mapping 

Push word uie are transferring 

Store data into user's buffer 

Loop if more data to copy 



ASR 


R3 


MOV 


#VPAR6, R4 


BUFMAP 




MOV 


<R4)+, RO 


UNMAP 




MOV 


RO, -<SP) 


MTPD 


(R5) + 


SOB 


R3, 4* 


Finished 




JMP 


EMTXIT 



f 

I 
( 
< 
t 

I 
t 

i 
< 
I 
I 
i 
i 

4 
I 
C 

t 

i 

i 

i 



i 
C 
C 
I 
i 
i 
i 
i 

c 
f 
€ 

( 
( 

i 
i 
C 

( 



TSWIN — 
WFSTT - 

I 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

14 
15 
16 
17 
18 
19 
20 
21 
22 
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014124 



014124 013702 000002' 

\JX*tXtJ>\j JLt^wlOis. \J\j\JyJ\J\jss3t 

014134 001002 

014136 004737 014160' 

014142 062702 OOOOOOG 

014146 020237 000004' 

014152 103766 



014154 000137 OOOOOOG 



. 3BTTL WFSTT — EMT to set terminal type for ujindowing 

Reset the terminal type for all windows being used by this job. 

Inputs: 
Rl = Job index number. 

WFSTT: 

i 

; Begin loop to process all windows belonging to this job 



I*: 



J*: 



MOV 


DWBAS, R2 


CMPB 


Ri,DW*J0B<R2) 


BNE 


2* 


CALL 


WINSTT 


ADD 


#DW**SZ, R2 


CMP 


R2, DWEND 


BLD 


1* 


Finished 




JMP 


EMTXIT 



i Point to 1st window control block 

tDoes this one belong to thjLS job 7' 

; Br if not 

; Reset terminal type for this window 

/Point to next window control block 

iChecked all? 

; Loop if not 



f 

c 
f 

t 
I 
« 
i 
I 
f 

i 
t 

I 
t 



I 



I 

f 



f 
I 
c 
I 
c 
c 
I 
c 
i 
i 

i 

( 
( 

i 



TSWIN — 
WINSTT - 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

23 

24 

25 

26 

27 

2S 

29 

30 

31 

32 
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a tuindouj 

. SBTTL WIh4STT — Set terminal type for a uindoui 

WINSTT sets up the terminal type in the window control block 
attribute word based on the terminal type specified for the job. 

Inputs: 
R2 - Pointer to window control block 



014160 
014162 



010146 
116201 



OOOOOOG 



WINSTT: MOV 
MOVE 



R 1 , - < SP > 
DW*J0B(R2); Rl 



014166 042762 OOOOOOC OOOOOOG 



014174 
014202 
014204 
014212 



014214 
014222 
014224 



014232 
014234 



032761 
001404 
052762 
000407 



032761 
001403 
052762 



012601 
000207 



OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 



OOOOOOC 
OOOOOOG 



OOOOOOG 
OOOOOOG 



1*: 



•Get job index number 

Determine terminal type based on line type 

BIC #<AW*52!AW*2005-, DW*AW<R2) ; Say not VT52 and not VT200 

See if terminal is a VT52 

BIT #VT52, LTRMTP<Rl)i Is this a VT52? 

BEQ 1* i Br if not 

BIS #AW*52, DW*AW(R2)i Set VT52 as terminal type 

BR 9* 

See if terminal is a VT200 

#<VT2007:VT2008>, LTRMTP(Rl) j VT200 terminal? 

9* i Br if not 

#AW*200, DW*AW<R2)>Set VT200 as terminal type 





BIT 




BEQ 




BIS 


F 


inished 



9*: 



MOV <SP)+, Rl 
RETURN 



f 
I 

f 

^ 
i 

c 
i 

i 
1 
I 

C 

( 
( 
I 
( 
I 



TSWIN - 
WINREL 
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- Release all display uindouis for a job 



1 
S 
3 
4 
5 
6 
7 
8 
9 
10 
11 



014236 



14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 



014236 013702 000002' 

014242 120162 OOOOOOG 

014246 001002 

014250 004737 014270' 

014254 062702 OOOOOOG 

014260 020237 000004' 

014264 103766 



014266 000207 



. SBTTL WINREL — Release all display luindouis for a job 

Release all display windows for the current job. 

Inputs: 
Rl = Job index number for job whose windows are to be released. 

WINREL: 

i Begin loop to search for window control blocks belonging to this 
i job. 

Point to first window control block 
1*: CMPB Rl, DW*J0B<R2) ils this one belong to our job? 

Br if not 

Delete the windoe 
2«: ADD #DW**SZ,R2 j Point to next window control block 

Checked all? 

Loop if not 



MOV 


DWBA3, R2 


CMPB 


Rl, DW*J0B<R2) 


BNE 


2« 


CALL 


WINDEL 


ADD 


#DW$$SZ, R2 


CMP 


R2, DWEND 


BLO 


1* 


Finished 




RETURN 





014270 



TSWIN — TSX-Plus Display Windo MACRO 
WINDEL — Delete a window 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 



14270 
14274 
14300 
14302 



1 1 6200 
020260 
001002 
005060 



OOOOOOG 
OOOOOOG 

ooooooe 



014306 004737 014700' 



l£.X 

22 

23 014312 105062 

24 014316 105062 
25 

26 
27 
28 014322 000207 



0000000 
OOOOOOG 
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. BBTTL WINDEL — Delete a window 

Delete a window and release its screen buffer region. 

Inputs: 
R2 = Pointer to window control block 

WINDEL: 

If this is the current window* reset window info for job 

i Get # of job that owns this window 
; Is this current window for the job' 
> Qr if not 
i Say job is not doing windowing 

i Free the region used for the screen buffer 

1$: CALL FREWSB ; Free the window screen buffer 

i 

i Free the window control block 

; Say b loc k is free 

i Say no job using block 



i 

c 



MOVB 


DW*J0B(R2),R0 


CMP 


R2, LWINDO(RO) 


BNE 


1* 


CLR 


LWINDO<RO) 



CLRB 


DW«ID(R2) 


CLRB 


DW«J0B(R2) 


Finished 




RETURN 





t 
I 
I 
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WINSRC — Locate control block for a window 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 



SBTTL WINSRC 



Locate control block for a utindotu 



014324 



014324 010200 

014326 013702 000002' 

014332 120062 0000000 

014336 001003 

014340 120162 0000000 

014344 001407 

014346 062702 0000000 

014352 020237 000004' 

014356 103765 



014360 000261 
014362 000401 



014364 000241 



014366 000207 



Locate a window control block for a specified window for the current 
job. 

Inputs: 
Rl = Index number of job that owns the window 
R2 = Window number 

Outputs: 
C-flag cleared ==> Found window control block 
C-flag set -=> Cannot find window control block 
R2 = Pointer to window control block if found 

WINSRC: 

Search for specified window control block 

Get window ID 

Point to first window control block 
1*: CMPB RO, DW*ID<R2) i Does this block have correct ID? 

Br if not 

Is this control block for right job? 

Br if yes 
?*: ADD #DW**SZ. R2 ; Point to next control block 

Checked all? 

Loop if not 



MOV 


R2, RO 




MOV 


DWBAS> R2 




CMPB 


RO, DW*ID<R2) 




BNE 


2* 




CMPB 


Rl, DW*J0B<R2) 




BEQ 


3* 




ADD 


#DW**SZ, R2 




CMP 


R2, DWEND 




BLO 


1* 





f 



Cannot find specified window control block 



SEC 
BR 



i Signal error on return 



9* 



Found the window control block 
3*: CLC 

Finished 
9*: RETURN 



Signal success on return 
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iiAKWSB — Create named region for ujindoui screen buffer 



€ 
t 



1 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
!•:> 

14 

15 

16 

17 
IS 
19 
20 
21 

22 O 

23 



14370 
14372 
14374 
14376 
14400 



14402 
14406 
24 014412 
14414 
14420 
14424 



0] 
0] 
0] 



25 
26 
27 
28 
29 
30 

31 

32 

33 

34 

35 
36 
37 
38 

39 

40 

41 

42 

43 
44 
45 
46 

47 

48 
49 
50 
51 
52 

53 

54 

55 
56 
57 



14430 
14434 
14436 
14442 
14446 



14454 
14460 
14462 
14464 
14470 



14474 
14476 



14500 
14504 
14512 



010146 
010346 
010446 
010546 
010605 



016203 
070362 
006303 
066203 
062703 
072327 



162706 
010604 
004737 
010364 
012764 



162706 
010601 
010600 
012710 
010460 



104375 
103426 



016403 
016362 
016362 



OOOOOOG 
0000000 

OOOOOOG 

000077 

177772 



000012 

014570' 
OOOOOOG 
OOOOOOC 



000004 



017000 
000002 



OOOOOOG 
OOOOOOG 
OOOOOOG 



. SBTTL MAKWSB — Create named region for uiindoui screen buffer- 
Create a named local region large enough to hold the window 
screen buffer. 

Inputs: 
R2 = Pointer to window control block 
EMTBLK+2 = Arg block for EMT to create the window 

Outputs: 
C-flag cleared ==> Successfully created region 
C-flag set ==> Unable to create region 



MAKWSB : MOV 
MOV 
MOV 
MOV 
MOV 



R1,-<SP) 
R3, -<SP) 
R4, -<SP) 
R5, -<SP) 
SP,R5 



; Save original stack pointer in R5 
Calculate number of 64-byte blocks needed for region 



MOV DW*LPP<R2), R3 

MUL DW*CPL<R2). R3 

ASL R3 

ADD DW*LPP(R2), R3 

ADD #63. , R3 

ASH #-6. ; R3 



(Get # lines on page 

; Times number of columns 

j Need two bytes per character 

; Need byte vector for line attributes 

i Bound up to 64-byte boundary 

i Get # 64-byte blocks needed 



Build a region definition block on the stack 



OOOOOOG 



SUB 

MOV 

CALL 

MOV 

MOV 



#10. , SP 

SP,R4 

MAKRDB 

R3, R. 0SIZ(R4) 



iAllocate space for region def block 

; Get pointer to start of RDB 

iMake a region definition block on the stack 

j Set # 64-byte units needed 



#<RS. OBLIRS. CGR>> R. GSTS(R4) ; Set status flags 
Build EMT argument block on stack 



SUB #4. I SP 

MOV SP, Rl 

MOV SP, RO 

MOV #<36*400>, <R0) 

MOV R4, 2<R0) 

Try to create the region 



EMT 
BCS 



375 
9* 



Allocate space for EMT arg block 
Save pointer to EMT arg block 
Get pointer to EMT arg block aret 
Set EMT function code 
Set address of region def block 



j Try to create the region 

; Br if error on region creation 



OOOOOOG 
OOOOOOG 



We successfully created the region. 

Set up information in the window control block. 

MOV R. GID<R4.>* R3 ; Get region control block address 

MOV RC«BLK<R3), DW*RID(R2)i Save addr of global RCB 

MOV RC*BAS<R3), DW«MAP(R2)i Save mapping base for region 

i 

} Now detach from the global region 



f 



c 

f 

i 
f 
t 

i 
i 
i 

€ 
I 
I 

c 



c 



i 

i 
I 

c 

f 

c 
< 
c 
t 
I 
f 
I 
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f 
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I 
c 
i 
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5S 

59 014520 

60 014524 

61 014526 

62 014532 
63 

64 
65 
66 

67 014534 

68 014540 

69 014546 
70 

71 

72 

73 014552 

74 

75 

76 

77 014554 

78 014556 

79 014560 

80 014562 

81 014564 

82 014566 



005064 
010100 
012710 
104375 



OOOOOOG 
017001 



016203 
052763 
105263 



000241 



010506 
012605 
012604 
012603 
012601 
000207 



ooooooe 

OOOOOOG OOOOOOG 
OOOOOOG 



CLR R. GSTS(R4) ; Clear ail status flags 

MOV R1,R0 iGet pointer to EMT arg block 

MOV #«36*400>+l>, <R0); Set . ELRG function code 

EMT 375 ; Detach from the region 

Now go back and set the exclusive-access flag in the global region 
control block and increment its attachment count by one. 

MOV DW«RID<R2),R3 iGet pointer to global RCB 
BIS #RC*EXC,RC*FLG<R3)i Set exclusive-use flag 
INCB RC*CNT<R3) > Increment attachment count 



Successful completion 
CLC 



9*: 



Finished — 


Carry fia 


MOV 


R5, SP 


MOV 


<SP)+, R5 


MOV 


<SP)+, R4 


MOV 


(SP)+, R3 


MOV 


<SP)+,Ri 


RETURN 





; Signal success on return 
>tes results 
i Reset stack pointer 



i 
I 
i 
i 
I 

I 

t 

I 

( 

i 

t 

i 
I 
1 
( 
{ 
i 



i 



f 

f 
i 

i 
i 
i 
i 

€ 
C 

I 

i 
i 

t 
i 

i 
i 
I 
i 
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1 
2 








3 








4 








5 








h 








7 








a 








9 








10 


014570 


010146 


f 


11 


014572 


010346 




12 








13 








14 








15 


014574 


005064 


0000000 


16 


014600 


005064 


OOOOOOG 


17 


014604 


005064 


OOOOOOG 


18 








19 








20 








21 








22 








23 








24 


014610 


013764 


000010' OOOOOOG 


25 


014616 


116201 


OOOOOOG 


26 


014622 


006201 




27 


014624 


005000 




28 


014626 


071027 


000012 


29 


014632 


062701 


000036 


30 


014636 


070127 


000050 


31 


014642 


010103 




32 


014644 


010001 




33 


014646 


062701 


000036 


34 


014652 


070127 


003100 


35 


014656 


060103 




36 


014660 


116201 


OOOOOOG 


37 


014664 


060103 




38 


014666 


010364 


000002G 


39 








40 








41 








42 


014672 


012603 




43 


014674 


012601 




44 


014676 


000207 





. SBTTL MAKRDB — Make a region definition block 

Initialize a region definition block to access a global region 
used as a windoui buffer. 

Inputs: 
R2 = Pointer to uiindoui control block 
R4 = Pointer to area where region definition block is to be built 



ill the RDB 

J Zero addr of region control block 

i No status flags 

J No size specified yet 



I 
I 

f 



MAKRDB: MOV 


R1,-<SP) 


MOV 


R3, -(SP) 


i Initially 


zero some Ceii& 


CLR 


R. GID<R4> 


CLR 


R. GSTS<R4) 


CLR 


R. GSIZ<R4> 



Construct name for global region. 

The first three characters are "WIN". 

The next tu>o characters are the job number. 

The last character indicates the uiindoui ID. 



MOV 


R50WIN, R. 


NAME<R4 


)iSet 1 


MOVE 


DW*J0B(R2 


),R1 


Get JO 


ASR 


Rl 




Conver 


CLR 


RO 




Clear 


DIV 


#10. ,R0 




Split 


ADD 


#36, Rl 




. Conver 


MUL 


#50, Rl 




Shift 


MOV 


R1,R3 




Save 5 


MOV 


RO, Rl 




Get hi 


ADD 


#36, Rl 




» Conver 


MUL 


#3100, Rl 




•Shift 


ADD 


R1,R3 




-Job # 


MOVE 


DW*ID<R2) 


,R1 


, Get uii 


ADD 


R1,R3 




. Put uii 


MOV 


R3, R. NAME+2<R4) 


Set 2n 


Finished 








MOV 


(SP)+, R3 






MOV 


(SP)+, Rl 






RETURN 









,st 3 chars of name to "WIN" 
lb index number 
't to job number 

high-order for divide 

job number into two digits 
't binary value to rad50 digit 

remainder left 1 radSO digit position 
shifted low-order digit of job # 
,gh-order digit of job # 
't binary value to radSO digit 

over 2 rad50 digits 

is two high-order digits 
indow number 

indow number as 3rd digit of word 
id word of name 



I 
I 
I 



TSWIN - 
FREWSB 
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1 
2 
3 
4 

5 
6 

7 

a 

9 
10 

11 

12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 



. SBTTL FREWSB — Free memory used fay uiindou> screen buffer 

Free the memory region used for a windoui screen buffer. 

Inputs: 
R2 = Pointer to uiindou) control block 



014700 010146 

014702 010446 

014704 010546 

014706 010605 



014710 
014714 



016204 
001436 



ooooooe 



014716 
014722 



014730 
014734 
014736 
014742 



014750 
014754 
014756 
014760 
014764 
014770 
014772 



014774 
015002 
015004 
015010 



015012 
015014 
015016 
015020 
015022 



105364 
042764 



162706 
010604 
004737 
012764 



162706 
010601 
010600 
012710 
010460 
104375 
103407 



012764 
010100 
012710 
104375 



010506 
012605 
012604 
012601 
000207 



ooooooe 
ooooooG ooooooe 



000012 
014570' 

ooooooe ooooooe 



000004 



017000 
000002 



ooooooe ooooooe 

017001 



FREWSB: 


MOV 


Rli-<SP) 




MOV 


R4, -(SP) 




MOV 


R5, -<SP) 




MOV 


SP,R5 



> Save initial stack pointer 



See if this Uiindoiii has an associated region 



MOV DW*RID<R2>>R4 
BEQ 9* 



J Does ujindouj have an assoc region? 
> Br if not 



9*: 



Decrement attachment-count in global region RGB and 
reset exclusive-use flag. 

DECB RC*CNT(R4) i Say one less job using region 
BIC #RC*EXC, RC*FLe(R4); Clear exclusive-use flag 

Build region definition block on the stack 

SUB #10. * SP i Reserve room for region def block 

MOV SPi R4 iGet addr of base of region def block 

CALL MAKRDB i Build the region definition block 

MOV #RS. eBL,R. eSTS<R4)i Set global status flag in RDB 

Build EMT argument block on stack to attach to region 

SUB #4. » SP .Reserve room for EMT arg block 

MOV SPj Rl i Save pointer to EMT arg block 

MOV SP* RO iQet pointer to arg block area 

MOV #«36*400>+0>* <RO)i Set function code 

MOV R4, 2(R0) ;Set address of region def block 

EMT 375 i Try to attach to the region 

BCS 9* i Br if cannot attach to region 

Eliminate the region 

MOV #<RS. OBLIRS. EeR>, R. CSTS<R4);Set status flags 

MOV RliRO ; Point to EMT argument block 

MOV #«36*400>+l>, <R0); Set EMT function code 

EMT 375 iElimininate the region 



{Restore stack pointer 



Finished 




MOV 


R5, SP 


MOV 


(SP)+, R5 


MOV 


(SP)+, R4 


MOV 


(SP)+, Rl 


RETURN 





t 

c 



i 

I 

c 



i 

i 

i 
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2 








3 








4 








5 








6 


015024 


010546 




7 








8 








9 








10 


015026 


013705 


0000000 


11 


015032 


070527 


OOOOOOG 


12 


015036 


062705 


015234' 


13 


015042 


020527 


OOOOOOC 


14 


015046 


101402 




15 


015050 


012705 


OOOOOOC 


16 


015054 


010537 


000004 ' 


17 








IS 








19 








20 


015060 


005045 




21 


015062 


020537 


000002 ' 


22 


015066 


101374 




23 








24 








25 








26 


015070 


012605 




27 


015072 


000207 





SBTTL WININI 



TSWIN initialization 



WININI is called during system initialization to initialize the 
display management system. 

WININI: MOV R5, -(SP) 

Allocate space for the uiindou control blocks 

MOV VMXWIN, R5 ; Get # control blocks wanted 

MUL #DW**SZ, R5 ; Times size of each block 

ADD #WINT0P.R5 iAdd base of area 

CMP R5, #i40000-DW**32 i Would this overfioui available area7 

BLOS 1* ; Br if not 

MOV #140000-DW*«SZ,R5i Constrain to available area 

1*: MOV R5, DWEND ; Set pointer to end of control blocks 



Zero the entire display control block area 



2*: 



CLR 


-<R5) 


CMP 


R5, DWBAS 


BHI 


2* 


" i n i s h e d 




MOV 


<SP)+,R5 


RETURN 





i Zero entire area 
{Reached start of areaT' 
» Loop if not 



I 
I 

c 

f 
i 

i 
( 
I 
< 
t 

€ 
€ 

I 

t 
4 
I 
C 
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I 



i 

2 






3 






4 






5 






6 






7 






8 






9 






10 






11 






12 






13 015074 


010146 




14 015076 


010446 




15 015100 


010546 




16 






17 






18 






19 015102 


012701 


OOOOOOG 


20 015106 


026137 


OOOOOOG 000010' 


21 015114 


001004 




22 015116 


026137 


OOOOOOG 000012' 


23 015124 


001404 




24 015126 


162701 


000002 


25 015132 


003365 




26 015134 


000432 




27 






28 






29 






30 






31 015136 


016104 


OOOOOOG 


32 015142 


001427 




33 015144 


005737 


OOOOOOG 


34 015150 


003424 




35 015152 


004737 


OOOOOOG 


36 015156 


012700 


OOOOOOC 


37 015162 


010105 




38 015164 


012425 




39 015166 


077002 




40 015170 


116200 


OOOOOOG 


41 015174 


006200 




42 015176 


110061 


00000 IG 


43 015202 


116261 


OOOOOOG OOOOOOG 


44 015210 


010104 




45 015212 


004737 


OOOOOOG 


46 015216 


000241 




47 015220 


000401 




48 






49 






50 






51 015222 


000261 




52 






53 






54 






55 015224 


012605 




56 015226 


012604 




57 015230 


012601 





SBTTL WINPRT 



Windouf print-screen function 



WINPRT is called when a control character is received that means 
that we should perform a print— screen function for the current 
window for the job. 

Inputs: 
R2 = Pointer to current window control block for job 

Outputs: 
C-flag set on return if unable to print the window. 



WINPRT: MOV 
MOV 
MOV 



Rli - ( 3P ) 
R4, -(SP) 
R5, -<SP) 



3*: 



See if "WINPRT" detached job is running now 

MOV #LSTSL, Rl i Get index to last job 

1*: CMP LPRGKRl), R50WIN; Is this the WINPRT program? 

BNE 2* ;Br if not 

CMP LPRG2<R1), R50PRT 

BEQ 3* ; Br if yes 

2$; SUB #2. Rl > More jobs to check? 

BGT 1« J Loop if yes 

BR a* j WINPRT program is not running 

The WINPRT program is running. 

Schedule a completion routine to tell it to print a window. 

i Get address of its completion Q element 

i Br if no completion routine pending 

i Can we get a free queue element? 

; Br if not 

i Get a free completion Q element (Rl=addr) 

; Get # words in queue element 

i Get pointer to new queue element 

;Copy original completion Q element 

) Get # of job whose window to print 
{Convert to job number 
i Set job # in high byte of Rl 
IRDiSet window ID in low byte of Rl 
;Get addr of compl Q element for QCOMPL 
; Queue the completion request for WINPRT 
i Signal success on return 



4*: 



MOV 


LBRKCQ(R1)>R4 


BEQ 


8* 


TST 


NMFREQ 


BLE 


8* 


CALL 


GETRTQ 


MOV 


#I0QSIZ/2, RO 


MOV 


R1,R5 


MOV 


(R4)+, (R5)+ 


SOB 


RO, 4* 


MOVB 


DW*J0B<R2),R0 


ASR 


RO 


MOVB 


RO, CQ*R1-H<R1> 


MOVB 


DW«ID(R2),CQ$R 


MOV 


Rl, R4 


CALL 


QCOMPL 


CLC 




BR 


9* 



Unable to print the window 
8*: SEC 



> Signal failure on return 



9*: 



Finished 

MOV 
MOV 
MOV 



<SP)+, R5 
(SP)+, R4 
<SP)+, Rl 



1 
( 
I 
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53 G15S32 000207 
59 
60 
61 
62 
63 

64 015234 
65 

66 000001 

Errors detected: 

*** Assembler statistics 



Work file reads: 

Work file writes: 

Size of work file: 8284 Words < 33 Pages) 

Site of core pool: 18176 Words < 71 Pages) 

Operating system: RT-11 

Elapsed time: 00:01:56.02 
, LP: TSWIN=DK: TSWIN/C/N: SYM 



RETURN 



Top of TSWIN code (Window control blocks are allocated from this 
point to the end of the overlay). 



WINTOP: 



. END 
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*8BIT 


1-25 


3-30 
























*CTRLO 


1-27 


67-24 
























*DETCH 


1-43 


83-18 
























*RFRSH 


1-27 


66-15 


66-25 






















*SLKED 


1-42 


84-75 
























*SLON 


1-42 


84-73 
























*V52EM 


1-22 


35-26 


42-21 


43-15 


74-16 


74-18 


74-27 


74-29 












*VNOTT 


1-29 


51-18 


52-18 






















*WDISP 


1-28 


1-43 


65-18 


66-14 




















AC*BLD 


1-38 


40-15 


41-8 


41-9 


41-13 


68-53 


70-31 


70-32 


70-43 










AC*BLK 


1-38 


40-15 


41-8 


41-11 


41-15 


68-53 


70-31 


70-32 


70-57 










AC*REV 


1-38 


40-15 


41-S 


41-12 


41-16 


68-53 


70-31 


70-32 


70-64 










AC*SET 


1-44 


71-20 


71-22 






















AC*ULN 


1-39 


40-15 


41-8 


41-10 


41-14 


68-53 


70-31 


70-32 


70-50 










ACRCS 


7-34 


8-27 


9-21 


9-33 


9-56 


9-70 


9-97 


9-100 


10-10# 










AL*DHB 


1-39 


39-11 


39-20 


68-25 


78-13 


















AL*DHT 


1-39 


39-12 


39-19 


68-25 


78-13 


78-17 
















AL«DWD 


1-39 


39-27 


39-34 


68-25 


78-25 


















ASATAT 


33-10 


33-24 


35-19 


36-42# 




















AW* 132 


1-41 


36-48 


43-24 


68-22 


77-85 


84-104 


84-105 














AW$200 


1-41 


42-14 


42-37 


69-50 


71-37 


72-24 


72-33 


77-22 


77-57 


91-14 


91- 


-27 




AW* 52 


1-31 
91-14 


7-19 

91-20 


42-14 


69-12 


70-24 


71-28 


72-10 


73-13 


76-14 


77-16 


79- 


-30 


80-15 


AW*ACK 


1-41 


36-47 


43-24 


77-84 




















AW*AKM 


1-42 


38-8 


38-18 


43-24 


75-33 


84-77 
















AW*DDC 


1-45 


3-72 


51-15 


64-14 


67-15 


67-83 
















AW* INS 


1-41 


36-42 


43-24 


76-19 




















AW*ORS 


1-41 


24-17 


36-50 


43-24 


48-15 


73-35 


80-22 














AW*PRM 


1-43 


84-83 


86-27 






















AW*PRT 


1-25 


3-54 


11-83 


43-24 


44-17 


44-21 
















AW*REV 


1-41 


36-49 


77-86 


84-104 


84-105 


















AW*RPT 


1-43 


36-51 


77-87 


84-44 




















AW*S52 


1-31 
77-16 


7-19 
79-30 


35-23 
80-15 


42-14 


43-12 


69-12 


70-24 


71-28 


72-10 


73-13 


74- 


-14 


76-14 


AW*SPN 


1-27 


3-25 


87-12 


87-24 




















AW*SS 


1-44 


4-30 


4-33 


32-79 


32-90 


43-24 
















AW*VCR 


1-42 


36-52 


77-24 


77-88 


84-44 


















BUFCHR 


1-31 


1-40 


81-40 






















CATABL 


40-26 


41-S# 
























CATEND 


40-30 


41-17# 
























CCEXIT 


5-26 


5-27 


5-28 


5-29 


5-30 


5-31 


5-32 


5-33 


5-42 


5-43 


5- 


-44 


5-45 




5-46 


5-47 


5-48 


5-49 


5-50 


5-51 


5-53 


5-54 


5-55 


5-56 


5- 


-57 


5-61 # 


CCRTN 


5-17 


5-26# 
























CKTAC 


34-29 


35-41 


37~10# 






















CLRLIN 


26-52 


27-51 


49-46 


50-47 


56-32 


57-23 


57-32 


58-14 


59-10# 










CORUSR 


1-39 


84-97 


89-26 


89-27 




















CPYLIN 


26-44 


27-43 


49-39 


50-40 


60-1 1# 


















CQ*R1 


1-24 


99-42* 


99-43# 






















CR 


1-38 


68-90 
























CSBUF 


2-54# 


11-20 


11-56 






















CSFIN 


8-44 


9-34 


9-71 


11 -8# 




















CSICHR 


1-31 


6-25 
























CSPARM 


13-1 5# 
42-31 


17-14 
44-14 


18-14 
45-13 


22-13 
46-13 


23-13 
47-13 


24-13 
47-21 


24-31 


26-26 


27-25 


34-14 


35- 


-14 


40-20 


CSTBLL 


11-49 


12-14# 
























CSTBLU 


11-52 


12-36# 
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CV52 


9-54 


9-68 


9~S4# 






















CVTTAV 


34-20 


35-32 


36-13# 






















DEC AT 


77-32 


77-84# 
























DEC TAT 


33-38 


33-52 


36-47# 






















DOCTRL 


3-63 


5-10# 
























DW«$SZ 


1-38 


84-30 


84-38 


86-30 


90-16 


92-17 


94-25 


98-11 


98-13 


98-15 








DW«AW 


1-31 


3-25 


3-54 


3-72 


4-30 


4-33* 


7-19 


11-83 


24-17 


32-79* 


32-90* 


34- 


-25* 




35-23* 


35-37* 


38-8* 


38-18* 


42-14* 


42-37* 


43-12* 


43-24* 


44-17* 


44-21* 


48-15 


51- 


-15 




64-14* 


67-15* 


67-83* 


68-22 


69-12 


69-50 


70-24 


71-28 


71-37 


72-10 


72-24 


72- 


-33 




73-13 


73-35 


74-14 


75-14 


75-33 


76-14 


77-16 


77-22 


77-57 


79-30 


80-15 


80- 


-22 




84-44* 


84-77* 


84-83* 


84-103 


84-105* 


84-106* 


86-27 


87-12* 


87-24* 


91-14* 


91-20* 


91- 


-27* 


DW*CCA 


1-33 


4-40 


25-17 


25-43* 


40-15* 


40^37* 


40-38* 


67-72 


67-74 










DW*COL 


1-33 


4-19 


4-51 


4-53* 


14-12 


14-14* 


15-12 


1 5-23* 


16-8* 


22-24 


22-28* 


23- 


-25 




23-28* 


24-38* 


25-13 


25-34* 


26-58* 


27-56* 


48-24* 


54-15 


55-14 


56-19 


57-30 


67- 


-65 




68-16 


68-40* 


68-60 


68-76* 


68-88 


68-96* 


79-16 


79-54* 


80-30 


80-42 


84-126* 






DW*CPL 


1-33 


4-51 


15-20 


15-22 


22-25 


22-27 


24-35 


24-37 


53-14 


54-19 


57-30 


59- 


-21 




60-38 


63-26 


68-32 


68-34 


84-52* 


84-101 


84-101* 


89-45 


89-64 


95-23 








DW*CSB 


1-30 


8-39 


10-22* 


11-16* 


11-22 


11-79 
















DW*CSP 


1-30 


7-13* 


7-32* 


10-15 


10-23* 


11-15 


11-91* 














DW*CSR 


1-30 


3-46 


7-22* 


7-31* 


9-27* 


9-57* 


11-92* 














DW*GOM 


1-46 


4-35 


2S-S* 


28-18* 


28-28* 


28-38* 


72-40 


72-49 












DW*G1M 


1-46 


29-8* 


29-18* 


29-28* 


29-38* 


















DW*G2M 


1--46 


30~S* 


30-18* 


30-28* 


43-38* 


84-67* 
















DW*G3M 


1-46 


31-8* 


31-18* 


31-28* 


43-39* 


84-68* 
















DW*GLM 


1-44 


4-29 


32-8* 


32-18* 


32-28* 


32-38* 


72-16 














DW*GLS 


1-44 


4-32 


32-78* 


32-89* 




















DW«GRM 


1-44 


4-26 


32-48* 


32-58* 


32-68* 


43-40* 


72-26 


84-69* 












DW*ID 


1-35 


84-43* 


93-23* 


94-21 


96-36 


99-43 
















DW*JOB 


1-35 


35-24 


42-19 


42-25 


43-13 


51-17 


52-17 


65-13 


67-19 


67-67 


74-12 


81- 


-39 




84-28 


84-42* 


86-25 


90-13 


91-10 


92-14 


93-12 


93-24* 


94-23 


96-25 


99-40 






DW$LIN 


1-33 


9-52 


17-22 


17-25 


18-21 


18-28 


19-13 


21-14 


25-12 


26-18 


26-50 


27- 


-17 




56-11 


56-15 


57-15 


59-12 


60-14 


61-13 


62-15 


63-18* 


67-44 


68-86 


79-45 


80- 


-21 




80-39 


























DW*LPP 


1-34 


18-22 


18-24 


19-17 


19-19 


24-24 


24-26 


37-25 


43-20 


47-24 


49-22 


49- 


-29 




50-22 


50-28 


56-29 


58-12 


61-16 


62-18 


63-24 


63-28 


67-50 


68-86 


73-20 


84- 


-53* 




84-57 


84-100 


84-100* 


89-44 


89-47 


89-62 


95-22 


95-25 












DW*LPT 


1-34 


4-15 


53-13 


54-18 


54-22 


55-13 


59-20 


60-31 


60-34 


63-30* 


68-41 






DW*MAP 


1-34 


4-44 


53-15 


54-26 


55-18 


59-22 


60-39 


61-21 


62-23 


68-45 


89-71 


95- 


-55* 


DW*MSL 


1-45 


51-24 


51-35 


84-54* 


84-102 


84-102* 
















DW*NSL 


1-45 


51-30 


51-32* 


64-18* 




















DW*RID 


1-35 


95-54* 


95-67 


97-15 




















DW*SCA 


1-47 


25-17* 


25-43 






















DW*SCL 


1-47 


25-13* 


25-34 


84-125* 




















DW$SLN 


1-47 


25-12* 


25-38 


84-124* 




















DW*SRB 


1-33 


18-28 


18-30 


18-32 


19-14 


24-21 


24-23 


26-21 


26-30 


26-41 


27-20 


27- 


-29 




27-49 


37-25* 


43-20* 


47-25* 


49-22 


49-40 


49-45 


50-22 


50-36 


73-20 


73-29 


84- 


-57* 


DW*SRT 


1-34 


17-25 


17-27 


17-29 


21-15 


24-19 


26-19 


27-18 


37-24* 


43-19* 


47-17* 


48- 


-17 




49-20 


49-35 


50-20 


50-41 


50-46 


73-18 


73-26 


80-24 


84-56* 










DW*TLN 


1-34 


49-27* 


49-29* 


50-27* 


50-28 


50-30* 


61-14 


62-16 


63-22 


84-55* 


89-60 






DWBAS 


2-49# 


84-27 


86-24 


90-12 


92-13 


94-20 


98-21 














DWEND 


2-50# 


84-31 


86-31 


90-17 


92-18 


94-26 


98-16* 














EMTBLK 


1-37 
89-16 


83-15 
89-18 


84-20 
89-23 


84-43 
89-36 


84-45 
89-52 


84-54 
89-59 


84-81 


84-87 


84-90 


85-14 


86-12 


88- 


-17 


EMTWIN 


1-17 


83-1 1# 
























EMTXIT 


1-37 


84-131 


85-36 


86-48 


87-13 


87-25 


88-33 


89-80 


90-22 










EP52 


7-21 


9-ll# 
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EP52C 


9-57 


9-68# 






















EP52L 


9-27 


9-49# 






















EPCHl 


7-18 


7-31 


8-2 1# 




















ERSCTL 


45-16 


54-10# 


56-24 




















ERSCTP 


46-16 


56-10# 






















ERSLIN 


45-24 


53-9# 






















ERSLTC 


45-20 


55-9# 


57-35 




















ERSPAG 


37-27 


43-32 


46-24 


58-8# 


84-119 
















ERSPTC 


46-20 


57-10# 






















ESC 


1-31 


6-18 






















FORCEX 


1-29 


65-24 






















FREWSD 


93-19 


97-S# 






















FRKPRI 


1-29 


52-12 






















GENAAS 


75-20 


75-27 


76-10# 




















GENCAF 


67-75 


68-70 


70-13# 




















GENCHR 


68-75 


68-90 


68-91 


69-19 


69-24 


69-25 


69-26 


69-31 


69-33 


69-38 


69-39 


69-43 




69-45 


69-46 


69-53 


69-55 


69-56 


69-62 


69-64 


69-66 


70-39 


70-45 


70-46 


70-52 




70-53 


70-59 


70-60 


70-66 


70-67 


70-71 


71-35 


71-36 


71-40 


71-41 


71-48 


72-20 




72-28 


72-37 


72-41 


72-50 


73-28 


73-31 


73-38 


73-39 


73-40 


74-20 


74-21 


74-22 




74-32 


74-39 


74-40 


74-41 


74-42 


74-45 


74-46 


74-47 


74-48 


74-49 


74-50 


75-35 




75-37 


76-22 


76-23 


77-45 


77-48 


77-59 


77-72 


78-16 


78-19 


78-21 


78-28 


78-29 




79-23 


79-38 


79-44 


79-47 


79-50 


80-29 


80-32 


80-38 


80-41 


80-44 


81-5 


81-23 




81-24 


S1-3S# 


82-27 




















GENCLR 


67-32 


69-8# 






















GENCSC 


70-20 


71-11# 






















GENCSI 


69-18 
77-44 


69-23 
79-35 


69-30 
80-20 


69-32 
81-12# 


69-37 


70-38 


73-25 


73-37 


74-19 


74-38 


74-44 


76-21 


GENCSR 


67-64 


80-1 1# 






















GENDAS 


75-21 


75-28 


77-10# 




















GENESC 


69-44 


69-52 


69-54 


69-61 


69-63 


69-65 


71-34 


71-39 


71-47 


72-19 


72-27 


72-36 




72-48 


74-31 


75-32 


78-15 


78-27 


79-43 


80-37 


81-5# 










OENLAF 


68-28 


78-8# 






















GENMAP 


67-79 


72-9# 






















GENSPC 


68-63 


79-1 1# 






















GENSSS 


67-60 


73-9# 






















GENTEM 


67-28 


74-12# 






















GENVAL 


73-27 


73-30 


77-53 


79-37 


80-28 


80-31 


82-9# 












GENWAF 


67-36 


75-9# 






















GETLAB 


39-10 


39-18 


39-26 


39-33 


60-20 


62-1 1# 


68-20 












GETRTQ 


1-23 


99-35 






















GiMMCHR 


72-37 


72-67# 






















INTPRI 


1-32 


4-47 


53-18 


54-29 


55-21 


59-25 


60-42 


61-23 


62-25 


67-23 


68-48 


89-73 


lOQSIZ 


1-24 


99-36 






















KPAR6 


1-32 


4-44 


4-44* 


4-47* 


53-15 


53-15* 


53-18* 


54-26 


54-26* 


54-29* 


55-18 


55-18* 




55-21* 


59-22 


59-22* 


59-25* 


60-39 


60-39* 


60-42* 


61-21 


61-21* 


61-23* 


62-23 


62-23* 




62-25* 


68-45 


68-45* 


68-48* 


89-71 


89-71* 


89-73* 












LBRKCQ 


1-23 


99-31 






















LCOL 


1-42 


67-68* 






















LF 


1-38 


68-91 






















LNPRIM 


1-22 


35-25 


42-20 


43-14 


74-13 
















LOTNXT 


1-26 


67-22 






















LOTPNT 


1-26 


67-22* 






















LOTSIZ 


1-26 


67-21 






















LDTSPC 


1-26 


67-21* 






















LPRGl 


1-23 


99-20 






















LPRG2 


1-23 


99-22 
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LSLCHR 
LSRCHR 


72-20 
72-28 


72-59# 
72-63# 


























LSTATE 


1-28 


65-22 


























LSTSL 
LSW 


1-23 
1-29 


99-19 
1-43 


51-18 


52-18 


83-18 




















LSWll 


1-22 


35-26* 


42-21* 


43-15* 


74-16 


74-18* 


74-27 


74-29* 












LSW2 


1-25 


3-30 


























LSW3 


1-27 


67-24* 


























LSW4 


1-27 


66-15* 


66-25* 






















LSW6 


1-28 


1-43 


65-18* 


66-14* 






















LSW7 


1-42 


84-73 


84-75 
























1 TRMTP 


1 ~a.n 


42-26 
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LWINDO 


1-30 


3-21 


66-19 


85-16* 


85-28* 


87-10 


87-22 


93-13 


93-15* 












MAKRDB 


95-33 


96-10# 


97-28 
























MAKWSB 


84-111 


95-14# 
























MAPHLD 


2-51# 


4-44* 


4-47 


53-15* 


53-18 


54-26* 


54-29 


55-18* 


55-21 


59-22* 


59-25 


60- 


-39* 






60-42 


61-21* 


61-23 


62-23* 


62-25 


68-45* 


68-48 


89-71* 


89-73 












MAXSFC 


83-26 


S3-45# 


























NMFREQ 

OVRHC 

P2*CXT 


1-23 
1-32 
1-25 


99-33 
52-23 
89-29 


81-40 
























PCSPND 


1-29 


52-23 


























PR7 


1-32 


4-44 


53-15 


54-26 


55- IS 


59-22 


60-39 


61-21 


62-23 


67-20 


68-45 


89- 


-71 




PRIVC2 


1-25 


89-29 


























PSW 


1-32 


4-44* 


4-47* 


53-15* 


53-18* 


54-26* 


54-29* 


55-18* 


55-21* 


59-22* 


59-25* 


60- 


-39* 






60-42* 


61-21* 


61-23* 


62-23* 


62-25* 


67-20* 


67-23* 


68-45* 


68-48* 


89-71* 


89-73* 








QCOMPL 


1-24 


99-45 


























R. GID 
R. GSIZ 
R. GSTS 


1-35 
1-36 
1-36 


95-53 

95-34* 

95-35* 


96-15* 
96-17* 
95-59* 


96-16* 


97-29* 


97-43* 


















R. NAME 
R50PRT 
R50WIN 


1-36 

2-53# 

2-52# 


96-24* 

99-22 

96-24 


96-38* 
99-20 
























RC*BAS 
RC«BLK 
RC*CNT 


1-35 
1-28 
1-28 


95-55 
95-54 
95-69* 


97-21* 
























RC*EXC 
RC*FLG 


1-26 
1-26 


95-68 
95-68* 


97-22 
97-22* 






















f 


REFRSH 


66-21 


67~9# 


85-32 






















REGCHR 


3-68 


4~10# 


5-52 
























RS. CGR 


1-36 


95-35 


























RS. EGR 


1-37 


97-43 


























RS. GBL 
RS. PVT 
S*OTWT 


1-37 
1-36 
1-28 


95-35 
65-22 


97-29 


97-43 






















SCRCHK 
SCRLDN 


49-15 
21-26 


50-15 
50-8# 


51-11# 
























SCRLUP 


19-26 


49-S# 
























SEMI 


2-47# 


9-55 


13-22 


70-45 


70-52 


70-59 


70-66 


73-28 


74-47 


77-48 


80-29 








SET200 


71-36 


71-41 


71-60# 


72-41 






















SET52 


71-48 


71-64# 


72-50 






















SETERR 


1-37 


83-21 


83-29 


84-34 


84-115 


85-24 


86-40 


88-22 


88-29 


89-32 


89-40 


89- 


-55 




SETHOM 


37-16 


37-26 


43-28 


47-29 


48-10# 




















SETLAB 


39-13 


39-21 


39-28 


39-35 


59-31 


60-25 


61 -9# 














SETLIN 


17-30 


18-33 


19-20 


21-20 


24-27 


25-39 


48-20 


56-39 


57-34 


57-40 


59-16 


59- 


•36 






60-19 


60-23 


60-30 


60-33 


60-48 


63-14# 


67-47 


67-56 


84-127 
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3NDLIN 


67-48 


68-13# 






SS3CHR 


1-31 








TCI 00 


12-16 


12-84 


42- 


-9# 


TCAKM 


12-70 


3S-8# 






TCBS 


5-34 


14-S# 






TCCADR 


12-15 


12-43 


24- 


-9# 


TCCPRS 


12-69 


25-30# 






TCCPSV 


12-68 


25-8# 






TCCR 


5-39 


!6-S# 


20- 


"9 


TCDELL 


12-48 


27-10# 






TCDOWN 


12-38 


18-10# 






TCE3CE 


12-50 


20~9# 






TCGOAS 


12-42 


12-55 


28- 


~8# 


TCGODS 


12-41 


12-73 


28- 


-18# 


TCGOGR 


12-56 


2S-38# 






TCGOUK 


12-54 


2S-2S# 






TCGIAS 


12-57 


12-58 


29- 


-8# 


TCGIDS 


12-76 


29-lS# 






TCGIGR 


12-59 


29-38# 






TCGIUK 


29-28# 








TCG2AS 


12-60 


30-S# 






TCG2DS 


12-79 


30-18# 






TCG2GR 


12-61 


30-28# 






TCG3AS 


12-62 


31-8# 






TCG3DS 


12-82 


31-18# 






TC03GR 


12-63 


31-28# 






TCHT 


5-35 


15-S# 






TCINSL 


12-47 


26-1 1# 






TCIXUP 


12-44 


12-51 


21- 


9# 


TCLEFT 


12-40 


23-9# 






TCLERS 


12-46 


45-9# 






TCLF 


5-36 


5-37 


5- 


-38 


TCLSIR 


12-26 


32-48# 






TCLS2 


12-27 


32-2S# 






TCLS2R 


12-29 


32-5S# 






TCLS3 


12-28 


32-3S# 






TCLS3R 


12-30 


32-68# 






TCN3 


12-64 


39-10# 






TCN4 


12-65 


39-18# 






TCN5 


12-66 


39-26# 






TCI\I6 


12-67 


39-33# 






TCNKM 


12-86 


38-lS# 






TCPERS 


12-45 


46-9# 






TCPRT 


11-85 


12-21 


44- 


-9# 


TCRAA 


12-18 


33-23# 






TCRDA 


12-20 


33-51# 






TCREST 


12-24 


12-25 


43- 


-8# 


TCRIT 


12-39 


22-9# 






TCRTA 


33-25 


33-53 


35- 


-10# 


TCSAA 


12-17 


33-9# 






TCSBSZ 


1-30 


10-16 






TCSCA 


12-22 


40-9# 






TCSDA 


12-19 


33-37# 






TCSI 


5-41 


32-18# 






TCSO 


5-40 


32-8# 






TCSS2 


12-52 


32-7S# 







12-49 19-8# 20-10 



4 
I 

( 
I 



i 



i 



TSWIN — TSX-Plus Display Windo MACRO V05. 05 Wednesday lS-Jan-S9 14:17 Page S-6 
1 Cross reference table (CREF V05. 05) 

• TCSS3 
TCSSR 

^ TCSTA 
« TCUP 

TSWIN 

VALADB 
C VALADW 

VMXWIN 

VPAR6 

VTIOO 

VT2007 

VT2008 1-40 42-26 43-36 74-36 S4-65 91 -P5 
t VT52 

WCPCSI 

WCPESC 

WCSCHK 

WFDEL 

WFMAP 
t WFNEW 

WFPRNT 

WFREAD 
( WFRSUM 

WFSPND 

WFSTT 

• WINCHR 
WINDEL 84-23 84-113 86-29 86-44 92-16 93-8# 
WINDSP 
WININI 
WINPRT 
WINREL 

• WINSF 
WINSPN 
WINSRC 84-21 84-98 85-21 86-37 88-19 89-37 94-1 5# 



I 



I 



I 

c 



WINST 
WINSTT 
WINTOP 
WINVEC 



12-53 


32-S9# 










12-23 


47-9# 










33-11 


33-39 


34-10# 








12-37 


17-10# 










i-6# 












1-24 


89-19 










1-24 


89-17 










1-40 


98-10 










1-32 


61-17 


62-19 


63-29 


89- 


-70 


1-39 


74-34 










1-40 


42-26 


43-36 


84-65 


91- 


-25 


1-40 


42-26 


43-36 


74-36 


84- 


-65 


1-40 


91-18 










6-27 


7-3 1# 










6-20 


7-9# 










3-41 


6-14# 










83-39 


86-S# 










83-38 


85-10# 










83-37 


84-16# 










83-42 


88-13# 










83-43 


S9-12# 










83-41 


87-22# 










83-40 


S7-10# 










83-44 


90~8# 










1-17 


3-14# 










84-23 


84-113 


86-29 


86-44 


92- 


■16 


1-17 


66-9# 










1-17 


98-6# 










1-18 


88-26 


99-13# 








1-17 


86-19 


92-S# 








1-18 


64-9# 










51-40 


52-8# 










84-21 


84-98 


85-21 


86-37 


88- 


-19 


1-18 


65-9# 










84-61 


90-15 


91-9# 








1-47 


2-49 


98-12 


99-64# 






83-33 


83-37# 


83-45 
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BUFMAP 


2-26# 


4-44 


53-15 


54-26 


55-18 


59-22 


60-39 


61-21 


62-23 


68-45 


89-71 




DISABL 


2-6# 


4-44 


53-15 


54-26 


55-18 


59-22 


60-39 


61-21 


62-23 


67-20 


68-45 


89-71 


ENABL 


2-10# 


4-47 


53-18 


54-29 


55-21 


59-25 


60-42 


61-23 


62-25 


67-23 


68-48 


89-73 


ESCSEQ 


12-5# 


12-15 


12-16 


12-17 


12-18 


12-19 


12-20 


12-21 


12-22 


12-23 


12-24 


12-25 




12-26 


12-27 


12-28 


12-29 


12-30 


12-37 


12-38 


12-39 


12-40 


12-41 


12-42 


12-43 




12-44 


12-45 


12-46 


12-47 


12-48 


12-49 


12-50 


12-51 


12-52 


12-53 


12-54 


12-55 




12-56 


12-57 


12-58 


12-59 


12-60 


12-61 


12-62 


12-63 


12-64 


12-65 


12-66 


12-67 




12-68 


12-69 


12-70 




















OCALL 


2-16# 


52-23 


81-40 




















SEND 


2-39# 


68-90 


68-91 


69-19 


69-24 


69-25 


69-26 


69-31 


69-33 


69-38 


69-39 


69-43 




69-45 


69-46 


69-53 


69-55 


69-56 


69-62 


69-64 


69-66 


70-39 


70-45 


70-46 


70-52 




70-53 


70-59 


70-60 


70-66 


70-67 


70-71 


71-35 


71-36 


71-40 


71-41 


71-48 


72-20 




72-28 


72-37 


72-41 


72-50 


73-28 


73-31 


73-38 


73-39 


73-40 


74-20 


74-21 


74-22 




74-32 


74-39 


74-40 


74-41 


74-42 


74-45 


74-46 


74-47 


74-48 


74-49 


74-50 


75-35 




75-37 


76-22 


76-23 


77-45 


77-48 


77-59 


77-72 


78-16 


78-19 


78-21 


78-28 


78-29 




79-23 


79-38 


79-44 


79-47 


79-50 


80-29 


80-32 


80-38 


80-41 


80-44 


81-5 


81-23 




31-24 


82-27 






















UNMAP 


2-32# 


4-47 


53-18 


54-29 


55-21 


59-25 


60-42 


61-23 


62-25 


68-48 


89-73 





